Паскаль !!!вычислите сумму чётных чисел от 1 до m*n , где число m задается с клавиатуры ,n=5
Паскаль !!!
вычислите сумму чётных чисел от 1 до m*n , где число m задается с клавиатуры ,n=5
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы