Question

3.Дано целое трехзначное число А. Вывести цифры этого числа на экран в столбик.паскаль

Answer 1

Var a:byte;
begin
write('a - ');
readln(a);
writeln(a div 100);
writeln((a div 10)mod 10);
writeln(a mod 10);
readln
end.