
Хрисанф
6 год назад
Даны натуральные числа m и n (m<n).
составить программу, печатающую все натуральные числа больше m, но меньше n, а также сумму этих чисел.
в программе Паскаль
ОТВЕТЫ

Ralazasva
Jul 9, 2019
Var m,n,i,s:integer;
begin
write(m = );
readln(m);
write(n = );
readln(n);
s:=0;
for i:=m+1 to n-1 do
begin
write(i, );
s:=s+i;
end;
writeln;
writeln(s = ,s);
end.
Пример:
m = 5
n = 10
6 7 8 9
s = 30
begin
write(m = );
readln(m);
write(n = );
readln(n);
s:=0;
for i:=m+1 to n-1 do
begin
write(i, );
s:=s+i;
end;
writeln;
writeln(s = ,s);
end.
Пример:
m = 5
n = 10
6 7 8 9
s = 30
181
Смежные вопросы: