Есть ответ 👍

Ввести натуральное число m. вывести нечетные цифры числа m и номер их позиции в числе.

266
338
Посмотреть ответы 1

Ответы на вопрос:

Petya109
4,8(61 оценок)

Var x: integer; begin writeln('введите числo: '); readln(x); if ((x mod 10)=3)or((x mod 10)=5)or((x mod 10)=8) then writeln('в чсило входит цифра: ',x mod 10); x: =x div 10; if ((x mod 10)=3)or((x mod 10)=5)or((x mod 10)=8) then writeln('в чсило входит цифра: ',x mod 10); x: =x div 10; if (x=3)or(x=5)or(x=8) then writeln('в чсило входит цифра: ',x mod 10); end.

Популярно: Информатика