
Бобринский
5 год назад
Паскаль !!!вычислите сумму чётных чисел от 1 до m*n , где число m задается с клавиатуры ,n=5
ОТВЕТЫ

Драган
Oct 24, 2020
Program m1;
const n=5;
var sum,m,i: longint;
begin
write('введите m: ');
readln(m);
sum:=0;
for i:=1 to m*n do if i mod 2=0 then sum:=sum+i;
writeln('сумма четных: ',sum);
end.
const n=5;
var sum,m,i: longint;
begin
write('введите m: ');
readln(m);
sum:=0;
for i:=1 to m*n do if i mod 2=0 then sum:=sum+i;
writeln('сумма четных: ',sum);
end.
441
Смежные вопросы: