Регистрация
Denis4345
25.02.2022 21:25
Информатика
Есть ответ 👍

Склавиатуры вводится число. верно ли что все его цифры единицы.

174
296
Посмотреть ответы 3

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

KavaiiGot
KavaiiGot
4,4(32 оценок)
//pascalabc.net //версия 3.3, сборка 1611 begin var x: =abs((x-> x.; write( x.where(x-> x=1).count()=x.; end.
2vovanavi
2vovanavi
4,8(27 оценок)
Var   n: integer; begin   write('введите проверяемое число: '); read(n);   n: =abs(n); { от ввода отрицательных }   while n> 0 do begin       if n mod 10 < > 1 then begin           writeln('не все цифры - единицы');           exit           end;       n: =n div 10       end;   writeln('да, все цифры числа - единицы') end.
ева470
ева470
4,4(12 оценок)
//pascalabc.net //версия 3.3.5, сборка 1650 begin var n: =readinteger('n='); write(n mod 10=4 ? 'число оканчивается на 4' : 'число не оканчивается на 4'); end.

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