Question

Составить программу по задаче:
Дано целое число, если число трехзначное, то вывести цифры этого числа, иначе вывести текст "число не трехзначное"

Answer 1

Var x, l: integer;
begin
  readln(x);
  l := Trunc(Log10(Abs(x)));
  if l = 2 then
    writeln (x)
  else 
    writeln('число не трехзначное');
end.