Составить программу по задаче:
Дано целое число, если число трехзначное, то вывести цифры этого числа, иначе вывести текст "число не трехзначное"
Дано целое число, если число трехзначное, то вывести цифры этого числа, иначе вывести текст "число не трехзначное"
More Questions From This User See All
Answers & Comments
begin
readln(x);
l := Trunc(Log10(Abs(x)));
if l = 2 then
writeln (x)
else
writeln('число не трехзначное');
end.