Question

Цикл с постусловием. 

Подсчитать кол-во цифр в введеном с клавиатуры числе х кол-во троек.

Составить блок схему и программу

Answer 1

var

  x, count:integer;

begin

  write('x = '); readln(x);

  write('Количество троек в числе ', x, ' - ');

  while x > 0 do

  begin

    if x mod 10 = 3 then

      count := count + 1;

    x := x div 10;

  end;

  writeln(count);

end.