Вопрос по информатике:
С клавиатуры вводится число. Верно ли что все его цифры единицы. Помогите пж
Пожаловаться
- 19.08.2018 16:53
- Информатика
- remove_red_eye 11592
- thumb_up 48
Ответы и объяснения 2
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.
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.
Пожаловаться
- 20.08.2018 14:14
- thumb_up 18
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var x:=abs(ReadInteger()).ToString().Select(x->x.ToDigit());
write( x.Where(x->x=1).Count()=x.Count());
end.
//Версия 3.3, сборка 1611
begin
var x:=abs(ReadInteger()).ToString().Select(x->x.ToDigit());
write( x.Where(x->x=1).Count()=x.Count());
end.
Пожаловаться
- 21.08.2018 21:52
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы