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

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

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

1

Ответы и объяснения

Лучший Ответ!
  • Tlalok
  • почетный грамотей
2013-03-18T23:25:25+04:00

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.