Паскаль.1)определите, сколько чисел, введённых пользователем делятся на 3 без остатка. ввод чисел пользователем заканчивается после ввода цифры 0. 2)найдите сумму цифр числа, меньших 5. например, для числа 715245 это будет 1+2+4=7. написать блок-схему и программу.

var  c,count: integer; begin  write('введите число ');   count : = 0;   readln(c);   while c < > 0 do  begin      if (c mod 3) = 0 then          inc(count);       write('введите число ');       readln(c);   end;   writeln('count = ',count);   readln; end.

//вторая программа

var  c, summ: integer; begin  write('c = ');   summ : = 0;   readln(c);   while c < > 0 do  begin      if (c mod 10) < 5 then          inc(summ, c mod 10);       c : = c div 10;   end;   writeln('summ = ',summ);   readln; end.

1)

program abc;

var num,count: integer;

begin

readln(num);

while num< > 0   do

begin

    if (num mod 3) = 3 then

          count: =count+1

end;

writeln(count)

end.

2)

program abc;

var num,sum: integer;

begin

readln(num);

while num< > 0   do

begin

    if (num mod 10) < 5 then

          sum: =sum+num mod 10;

    num: = num div 10

end;

writeln(sum)

end.