Ответы
Ответ дал:
0
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.
Ответ дал:
0
Что ввести в окно "ввода данных"
Ответ дал:
0
То число, которое проверяете ))))
Ответ дал:
0
Добавил в подсказ программу, раз уж неясно)))
Ответ дал:
0
ох... подсказ в программу
Ответ дал:
0
спс)))
Ответ дал:
0
//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.
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад