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

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

Question

Сергеич

31 марта, 05:26

+3

Ответы (1)

Знаешь ответ?

Авенир · Answer 1

Var x, l: integer;

begin

readln (x);

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

if l = 2 then

writeln (x)

else

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

end.

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