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

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

Question

Информатика

Матильда

2 июля, 08:39

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

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

+1

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

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