Задать вопрос Регистрация
Помочь другим

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

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

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

Ответы 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.

    answer img

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years