Язык pascal ABC

Введите 5 положительных уныл чисел, вычислите сумму тех из них которые делятся на 4, и оканчиваются на 6. Если таких чисел нет, то вывести об этом сообщение.

Question

Информатика

Светозара

22 февраля, 13:12

Язык pascal ABC

Введите 5 положительных уныл чисел, вычислите сумму тех из них которые делятся на 4, и оканчиваются на 6. Если таких чисел нет, то вывести об этом сообщение.

+3

Ответы (1)

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

Фрол · Answer 1

Program z;

var a: array[1 ... 5] of integer;

i, sum:integer;

begin

for i:=1 to 5 do

begin

readln (a[i]) ;

end;

for i:=1 to 5 do

begin

if (a[i] mod 4=0) and (a[i] div 10=6) then

sum:=sum+a[i];

end;

writeln (sum) ;

end.

Язык pascal ABCВведите 5 положительных уныл чисел, вычислите сумму тех из них которые делятся на 4, и оканчиваются на 6. Если таких чисел нет, то вывести об этом сообщение.