100 ! сделать алгоритм, который выделяет цифры в 3-х значном числе

ответ:

объяснение:

описываем переменные:

var

chislo3 : integer;

chislostr, n1, n2, n3 : string;

begin

repeat

whiteln('ввод числа');

read(chislo3);

введенное целое число преобразуем в строку

chislostr: =str(chislo3);

проверяем, что длина строки 3, т.е. введенное число трехзначное и если да, то выходим из цикла

until length(chislostr)=3;

вырезаем из строки символы последовательно

n1: = copy(chislostr,1,1); n2: =copy(chislostr,2,1); n3: =copy(chislostr,3,1);

выводим выделенные символы построчно

writeln(n1);

writeln(n2);

writeln(n3);

end.

* синтаксис не тестил

var

  number, a, b, c : integer;

begin

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

  readln(number);

  a : = number mod 10;

  b : = (number mod 100) div 10;

  c : = number div 100;

  writeln('цифры числа: ');

  writeln(a);

  writeln(b);

  writeln(c);

end.