Информатика 10 класс!!!!!!!!!проходим case 2. Дано число К. Вывести фразу «Мы вы...

August 2022 2 2 Report

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

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.

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

1chto nazyvayut postoyannym magnitomchem vyzvana namagnichennost nekotoryh materia

рекомендуемые вопросы

Helpful Links

Helpful Social