Задание №3 по информатике

Написать программу, которая вычисляет сумму первых n целых положительных чисел.

program lab3;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a:array[1..100] of integer;  // массив
s:longint;
i,n:integer;
begin
writeln ('vvedite N');
s:=0;
readln (n);
for i:=1 to n do begin
a[i]:=i;
s:=s+a[i];
end;
writeln ( 'Summa = ', s );
readln;
end.

program lab3;

{$APPTYPE CONSOLE}

uses

SysUtils;

var a:array[1..100] of integer;  // массив

s:longint;

i,n:integer;

begin

writeln ('vvedite N');

s:=0;

readln (n);

for i:=1 to n do begin

a[i]:=i;

s:=s+a[i];

end;

writeln ( 'Summa = ', s );

readln;

end.

About admin

Speak Your Mind

Tell us what you're thinking...
and oh, if you want a pic to show with your comment, go get a gravatar!

Подтвердите, что Вы не бот — выберите самый большой кружок: