Question

создать програму
чтобы Выводила слово «студент» в заданном пользователем падеже: N - именительный, R - родовой, и т.д

Answer 1

var 
s : char;
begin
readln(s);
case s of
'N':writeln ('Студент');
'R':writeln ('Студента');
'D':writeln ('Студентом');
'V':writeln ('Студента');
'T':writeln ('Студентом');
'P':writeln ('О студенте');
end;
end.