Question

Бизнесмен Василий решил открыть новый бизнес — отгружать апельсины бочками. Партнерам важно знать, сколько именно бочек апельсинов отгружается каждый день. Мобильный телефон Василия поддерживает только транслит, поэтому он передает сообщения вида. «N bochek». Например, «3 bochki» или «1 bochka». Напишите программу, которая выбирает правильное слово (из «bochka», «bochke», «bochki») в зависимости от N.
(Язык-паскаль, функции- div, mod, if then else с (or, and)

Answer 1

Відповідь:

var

 N: integer;

begin

 write('Введите количество бочек: ');

 readln(N);

 if (N mod 10 = 1) and (N mod 100 <> 11) then

   writeln(N, ' bochka')

 else if (N mod 10 >= 2) and (N mod 10 <= 4) and ((N mod 100 < 10) or (N mod 100 >= 20)) then

   writeln(N, ' bochki')

 else

   writeln(N, ' bochek');

end.

Пояснення: