Язык паскаль Если решите этот номер, то зайдите на мой аккаунт и решите 2 номер)
Если не тяжело конечно.

Samira543 Samira543    2   21.04.2020 00:16    1

Ответы
armen6204 armen6204  13.10.2020 13:28

готово

Объяснение:

var i,n,sum:integer;

begin

write('n=');readln(n);

sum:=0; i:=1;

while i<=n do begin

sum:=sum+i; i:=i+1;

end;

writeln('Sum=',sum);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика