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

Объяснение:

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

var

Chislo3 : integer;

ChisloStr, N1, N2, N3 : string;

begin

repeat

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

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.