Алгоритм реализующий операцию произвольных множителей

Uses

crt;

var

a: integer

begin

writeln('введите класс');

readln(a);

case a of

1: writeln('привет, первоклассник');

2: writeln('привет, второклассник');

3: writeln('привет, третиклассник');

4: writeln('привет, четвероклассник');

5: writeln('привет, пятиклассник');

6: writeln('привет, шестиклассник');

7: writeln('привет, семиклассник');

8: writeln('привет, восьмиклассник');

9: writeln('привет, девятиклассник');

10: writeln('привет, десятиклассник');

11: writeln('привет, одиннадцатиклассник');

else writeln( 'введите другое значение');

end;

end.

Объяснение:

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

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.

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