Цитата:
Сообщение от Vadimxz8
2Скласти програму яка б пропонувала Вам ввести число і потім виводила на екран кількість комп'ютерів (введене число + слово "комп'ютер" у відповідному відмінку).
|
Українських відмінків не знаю. Вибачте.
Код:
Var
i:Word;
Begin
Write('i = ');
Readln(i);
Write(i,' ');
If (((i mod 100)>10) and ((i mod 100)<20)) or
((i mod 10)=0) or ((i mod 10)>4) then writeln('компьютеров')
else
If (i mod 10)=1 then writeln('компьютер')
else writeln('компьютера');
Readln
End.