Регистрация Вход
Информатика 10 - 11 классы Zeak
Решено

Паскаль !!!вычислите сумму чётных чисел от 1 до m*n , где число m задается с клавиатуры ,n=5

165
ОТВЕТЫ
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.
72
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте