дано естественное число n .выведите, номера разрядов ,в которых стоят числа,кратные

Дано естественное число n .выведите, номера разрядов ,в которых стоят числа,кратные 3,либо известье,что таких цифр нет.

Задать свой вопрос
Финицкая Карина
Pascal ABC?
Екатерина
Да
1 ответ

program n_1;

var n, m, i: int64;

begin

   readln(n);

   m:=1;

   i:=0;

   while ngt;0 do begin

       if (n mod 10) mod 3 = 0 then begin write(m,' '); i:=1; end;

       n:=n div 10;

       m:=m+1;

   end;

   if i=0 then write('Таких разрядов нет');

end.

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


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

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

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

Войти на сайт