Определить сумму всех чисел от N до M.
На языке паскаль
program summa;
var
n, m, i, sum: integer;
begin
write ( введите N: ); readln (n);
write ( введите M: ); readln (m);
sum := 0;
for i:=n to m do
sum := sum + i;
writeln (sum);
readln
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
