Вывести корректную с точки зрения русского языка строку основываясь на количестве

@ЕгорЧ · Регистрация: 28.10.2015

Author24 — интернет-сервис помощи студентам

Пользователь социальной сети хочет узнать, сколько у него друзей. Сформируйте строку-уведомление, которую следует отправить пользователю.

Входные данные
Входной поток содержит единственное целое число N (0 <= N < 1000) — количество друзей пользователя.

Выходные данные
Выведите корректную с точки зрения русского языка строку — «u vas ... drug», «u vas ... druga» или «u vas ... druzei». Вместо многоточия следует вывести число друзей.

Добавлено через 2 минуты
Я решил, но не могу вбить исключения ( 11, 12,13,14.....)

Pascal

Program friends; 
var N,k:integer; 
BEGIN 
 
readln(N); 
write('u vas ', N); 
if N in [0..999] then 
begin 
k:= N mod 10; 
case k of 
1: writeln( ' drug'); 
2..4: writeln( ' druga'); 
5..9,0:writeln( ' druzei'); 
end; 
end; 
END.

@Puporev · 04.11.2015, 13:24

Pascal

readln(n);
case  n mod 100 of
11..19:write(n,' druzei');
else
 case n mod 10 of
 1:write(n,' drug');
 2..4:write(n,' druga');
 else  write(n,' druzei')
 end;
end;

	04.11.2015, 13:24

Опции темы