Паскаль!

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

Question

Информатика

Кириллична

4 марта, 22:31

Паскаль!

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

+4

Ответы (1)

Знаете ответ на вопрос?

Видина · Answer 1

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.

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

Паскаль!

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