Информатика 10 класс!!!!!!!!!проходим case
2. Дано число К. Вывести фразу «Мы выучили К правил» (1 - «1 правило», 12 – «12 правил», 22- «22 правила»).

а можно попобдорбнее?нужно сделать так что бы можно было 3-х значные числа тоже вводить

Var k:1...k; Begin Read (k); Case n of 1,21: writeln ('мы выучили'k' правило'); 2...4,23,22,24 : ('мы выучили ,k, правила'); 5...20: ('мы выучил ,k,'правил'); 22: ( ну тут уже как выше); End; End. Мы это ещё в 7-Ом проходтли End.

var k:integer;beginread(k);case k of*Все цифры, оканчивающиеся на 1*: write('Мы выучили ',k,' правило');*Все цифры, оканчивающиеся на 2, 3, 4*: write('Мы выучили ',k,' правила');else write('Мы выучили ',k,' правил');end;end.