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.