Question

Помогите пожалуйста программы написать!

Answer 1

5.                                                                        

program raf105;

var

 num,sum: integer;

begin

 writeln('Вводите числа по очереди. Что бы закончить введите 0');

 repeat

   readln(num);

   if (num mod 6 = 0) and (num mod 10 = 4) then sum:= sum + num;

 until num = 0;

 writeln('Вывод: ',sum);

end.

6.                                                                        

program raf105;

var

 num,count: integer;

begin

 writeln('Вводите числа по очереди. Что бы закончить введите 0');

 repeat

   readln(num);

   if (num mod 4 = 0) and (num <> 0) then inc(count);

 until num = 0;

 writeln('Вывод: ',count);

end.

                                                                         

PascalABC