Question

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

Answer 1

var

   a : integer;

   

begin

   repeat

       write('введите двузначное число ');

       readln(a);

       if (a < 100) and (a > 9) then Writeln(a div 10, '  ', a mod 10);

   until (a < 100) and (a > 9);

end.