составьте программу в Pascal ABC, которая посчитает количество двоек в числе

Составьте программку в Pascal ABC, которая посчитает количество двоек в числе

Задать свой вопрос
1 ответ

var

   a, n : integer;

   

begin

   write('введите число: ');

   readln(a);

   while a gt; 0 do begin

       if a mod 10 = 2 then n += 1;

       a := a div 10;

   end;

   writeln('двоек: ', n);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт