Fofym
5 год назад
Ввести целое число и определить, верно ли, что в нём ровно 3 цифры. Нужно с помощью цикла "while"Пример:Введите число:123ДаПример:Введите число:1234Нет.
ОТВЕТЫ
Райна
Oct 24, 2020
var a, b: integer;
begin
readln (a);
b := 0;
while a > 0 do begin
b := b + 1;
a := a div 10
end;
if (b = 3) then
writeln ('Да')
else
writeln ('Нет')
end.
begin
readln (a);
b := 0;
while a > 0 do begin
b := b + 1;
a := a div 10
end;
if (b = 3) then
writeln ('Да')
else
writeln ('Нет')
end.
633
Смежные вопросы:
