22 lines
772 B
ObjectPascal
22 lines
772 B
ObjectPascal
var x: integer;
|
|
begin
|
|
repeat
|
|
write('Введите x: ');
|
|
readln(x);
|
|
if (x>=0) and (x<=9) then
|
|
writeln('Однозначное число')
|
|
else if (x>=10) and (x<=99) then
|
|
writeln('Двузначное число')
|
|
else if (x>=100) and (x<=999) then
|
|
writeln('Трёхзначное число')
|
|
else if (x>=1000) and (x<=9999) then
|
|
writeln('Четырёхзначное число')
|
|
else if (x>=10000) and (x<=99999) then
|
|
writeln('Пятизначное число')
|
|
else if (x>=100000) and (x<=999999) then
|
|
writeln('Шестизначное число')
|
|
else if (x>=1000000) and (x<=9999999) then
|
|
writeln('Семизначное число')
|
|
else writeln('слишком большое число')
|
|
until x=225
|
|
end. |