Среди 10 чисел, введенных с клавиатуры, найти сумму тех, которые кратны 2.

Программа в паскале)

Question

Информатика

Тимаша

6 июля, 05:03

Среди 10 чисел, введенных с клавиатуры, найти сумму тех, которые кратны 2.

Программа в паскале)

+4

Ответы (1)

Знаете ответ?

Наля · Answer 1

Program n1;

var a, i, sum: integer;

begin

sum:=0;

for i:=1 to 10 do

begin

readln (a) ;

if a mod 2=0 then sum:=sum+a;

end;

writeln (sum) ;

end.

Среди 10 чисел, введенных с клавиатуры, найти сумму тех, которые кратны 2.Программа в паскале)

Среди 10 чисел, введенных с клавиатуры, найти сумму тех, которые кратны 2.

Программа в паскале)