Question

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

Answer 1

Ответ:

готово

Объяснение:

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.