Предмет: Информатика,
автор: Danyalox123
Язык паскаль, помогите пожалуйста ^_^
Если решите этот номер, то зайдите на мой аккаунт и решите 2 номер)
Если не тяжело конечно.
Приложения:
Ответы
Автор ответа:
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.
Danyalox123:
Спасибо!
Интересные вопросы
Предмет: Русский язык,
автор: margoshka15
Предмет: Русский язык,
автор: Виктория625
Предмет: Русский язык,
автор: zarinaodilova
Предмет: Химия,
автор: gachenkori