Budor
4 год назад
Найти сумму первых n натуральных чисел где n задается с клавиатурой.Пожалуйста посчитайте пжжж.
ОТВЕТЫ
Порфирий
Oct 24, 2020
Program suma;
Var n, sum, i:integer;
begin
read(n);
for i:=1 to n do sum:=sum+i;
write(sum);
end.
Var n, sum, i:integer;
begin
read(n);
for i:=1 to n do sum:=sum+i;
write(sum);
end.
688
Смежные вопросы: