С клавиатуры вводится число. Верно ли что все его цифры единицы. Помогите пж. Created by CJKing. informatika-ru

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

CJKing @CJKing

May 2022 1 6 Report

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

Answers & Comments

AnonimusPro

Verified answer

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.

Answers & Comments

Verified answer

dlya fx3x2 f 1x

opredelite chetnost i nechetnost u2h3 5h3v korne h

najdite promezhutki vozrostaniya i ubyvaniya znachenie funkcii uh2 4h 5

pomogite poredelit chetnost i nechetnost funkcii nomer 4

рекомендуемые вопросы

Helpful Links

Helpful Social