На дереве сидело K ворон

@M1n35 · Регистрация: 17.09.2016

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

На дереве сидело K ворон. Нужно сделать так чтобы при подстановке числа K было правильное окончание у слова "ворона".
Я сделал это, но не могу понять как сделать правильно для чисел с 11 до 20.

Pascal

program Vorona;
Var k:integer;
begin
readln(k);
case (k mod 10) of
 0 : writeln ('На дереве сидело ',k,' ворон'); 
 1 : writeln ('На дереве сидело ',k,' ворона'); 
  5, 6, 7, 8, 9 : writeln ('На дереве сидело ',k,' ворон'); 
 2, 3, 4 : writeln ('На дереве сидело ',k,' вороны');
end;
end.

@vint-81 · 27.10.2016, 21:44

Pascal

program Vorona;
Var k:integer;
begin
readln(k);
write('На дереве сидело ',k,' ворон');
k:=k mod 100; if k>20 then k:=k mod 10;
case k of
  1: writeln ('а');
  2, 3, 4 : writeln ('ы');
end;
end.

@Sergio Leone · 27.10.2016, 23:00

vint-81, классный код!
только я бы WriteLn делал всё же:

Pascal

case k of
  1: writeln ('а');
  2, 3, 4 : writeln ('ы');
else
  WriteLn
end;

M1n35, а слово "сидело" не надо сопрягать?
тебя не напрягает фраза:
На дереве сидело 1 ворона

@M1n35 · 28.10.2016, 05:32 **[ТС]**

Большое вам спасибо.

@M1n35 0 / 0 / 0 Регистрация: 17.09.2016 Сообщений: 22
	28.10.2016, 05:32 [ТС]	4
	Большое вам спасибо. 0

На дереве сидело K ворон

Решение