Язык паскаль, помогите пожалуйста ^_^
Если решите этот номер, то зайдите на мой аккаунт и решите 2 номер)
Если не тяжело конечно.
Если решите этот номер, то зайдите на мой аккаунт и решите 2 номер)
Если не тяжело конечно.
More Questions From This User See All
Answers & Comments
Ответ:
готово
Объяснение:
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.