Напишите программу, которая считывает трехзначное число и выводит через пропуск каждой цифры отдельно

1

Ответы и объяснения

2014-01-27T15:29:44+04:00
Program numbers;

var num : integer;

begin
  write('Введите трехзначное число: ');
  readln(num);
  write(num div 100,' ');
  num := num mod 100;
  write(num div 10,' ');
  write(num mod 10);
end.