Информатика 10 класс!!!!!!!!!проходим case 2. Дано число К. Вывести фразу «Мы выучили К правил» (1 - «1 правило», 12 – «12 правил», 22- «22 правила»).
Answers & Comments
gula75
Var k:1...k;BeginRead (k);Case n of1,21: writeln ('мы выучили'k' правило');2...4,23,22,24 : ('мы выучили ,k, правила');5...20: ('мы выучил ,k,'правил');22: ( ну тут уже как выше);End;End.Мы это ещё в 7-Ом проходтлиEnd.
0 votes Thanks 0
khurobert
а можно попобдорбнее?нужно сделать так что бы можно было 3-х значные числа тоже вводить
NaraKun
Var k:integer; begin read(k); case k of *Все цифры, оканчивающиеся на 1*: write('Мы выучили ',k,' правило'); *Все цифры, оканчивающиеся на 2, 3, 4*: write('Мы выучили ',k,' правила'); else write('Мы выучили ',k,' правил'); end; end.
Answers & Comments
begin
read(k);
case k of
*Все цифры, оканчивающиеся на 1*: write('Мы выучили ',k,' правило');
*Все цифры, оканчивающиеся на 2, 3, 4*: write('Мы выучили ',k,' правила');
else write('Мы выучили ',k,' правил');
end;
end.