Question

Напишите программу которая в последовательности натуральных чисел определяет произведение двухзначных чисел кратных 4 и оканчивающихся на 4 .Программа получает на вход количество чисел в последовательности а затем сами числа

Answer 1

program psck;
var
count, comp, num : integer;
begin              read(count);       comp:=1;              while count>0 do       begin           count:=count-1;           read(num);           if (num div 100 = 0) and (num mod 4 = 0) and (num mod 10 = 4)            then comp:=comp*num;       end;              write('Произведение чисел - ',comp);           end.

Answer 2

program psck;

var

count, comp, num : integer;

begin

read(count);
comp:=1;

while count>0 do
begin
count:=count-1;
read(num);
if (num div 100 = 0) and (num mod 4 = 0) and (num mod 10 = 4)
then comp:=comp*num;
end;

write('Произведение чисел - ',comp);

end.