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.
* синтаксис не тестил
