Паскаль!

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

Question

Информатика

Тура

2 октября, 10:05

Паскаль!

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

+2

Ответы (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