Составить программу по задаче:

Дано целое число, если число трехзначное, то вывести цифры этого числа, иначе вывести текст "число не трехзначное"

Question

Никуша

25 июля, 17:38

+5

Ответы (1)

Знаете ответ на вопрос?

Никитична · Answer 1

Var x, l: integer;

begin

readln (x) ;

l : = Trunc (Log10 (Abs (x))) ;

if l = 2 then

writeln (x)

else

writeln ('число не трехзначное') ;

end.

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