Написать программу вычисления суммы натуральных чисел от 1 до nTurbo Pascal
Написать программу вычисления суммы натуральных чисел от 1 до n
Turbo Pascal
Гость
Ответ(ы) на вопрос:
Гостьvar i,n,s:integer;
begin
write('N=');
readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln('Сумма:',s);
end.
Не нашли ответ?
Похожие вопросы