Паскаль.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.

Исходя из всего увы без обьяснения я просто долго прикидывал но яблони у француза абрикосы у немца вишни у поляка черешня у шведа груши у далее бегает француз в тенисс играет швед в гольф поляк пловец и прыгает потом на скрипке играет и швед поляк на рояле еще играет на трубе француз на барабанах (ударных) живут они короче француз слева от центра прямо в центре поляк с правого края швед с левого края а справа от центра теперь возраст французу 40 немцу 45 поляку 35 шведу 50 30 и ответ тогда 50 лет шведу ав гольф играет

линейный - начало-нарезать ломтик хлеба - намазать его маслом-отрезать ломтик сыра- положить сыр на хлеб - конец

развлетвляющийся - подъехал иван царевич к камню - направо пойдешь? - 1)голову сложишь -2) коня потеряешь - конец

циклические - определение фальшивой монеты

начало -  положить  по  одной  монете  на  каждую  чашу  весов,  третью  монету  отложить  в  сторону-весы  в  равновесии? - да(отложенная монета фальшивая) -нет(монета на поднявшийся вверх чаше фальшивая) - конец