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



style="display:block"
data-ad-client="ca-pub-0562610021414947"
data-ad-slot="5792664354"
data-ad-format="link">

Написать программу, которая вычисляет сумму первых 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.

Популярность: 1% [?]

Метки:на delphi

Связанные записи

Рубрика: ЮУПИ · Метки:

Выразите свои мысли

Скажите нам, что вы думаете...
и если вы хотите сопроводить комментарий своей аватаркой, воспользуйтесь сервисом gravatar!