profile
Опубликовано 5 лет назад по предмету Информатика от Roflll1337

Дано число, проверить сколько раз в него вмещается цифра 7.
(Можно блок схему и программу, пожалуйста!)

  1. Ответ
    Ответ дан HeTempl

    Задание указано некоректно. Надеюсь, вы имели в виду, сколько раз в заданное число можно вместить 7,то есть, сколько целых раз можно поделить на 7.


    Код:


    program school7;

    Var a:Integer;

    begin

    Write('Введите число>> ');

    ReadLn(a);

    Write('В число ', a, ' цифра 7 вмещается ', int(a/7), ' раз(а)');

    end.

Самые новые вопросы