Найдите сумму натуральных чисел от 1 до m. Используя цикл с предусловием
Program p1;
var sum,i,m:integer;
begin
writeln(Введите m: );
readln(m);
sum:=0;
while i
i:=i+1;
sum:=sum+i;
end;
writeln(Сумма натуральных чисел =,sum);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
