Информатика, опубликовано 2018-08-22 23:41:54 by Гость
Определить сумму всех чисел от 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на