Question

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

Answer 1

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.

Answer 2

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