Question

Напишите программу Мобильный телефон Василия поддерживает только транслит поэтому он передаёт вида N Bochek Например 3 bochki или 1 bochka.напишите программу которая выбирает правильное слово из bochka bochki bochek в зависимости от N (Паскаль)

Answer 1

var

 n:integer;

 md:real;

 s1, s2, s3:set of real;

begin

 s1:=[1.0]; s2:=[2.0, 3.0, 4.0]; s3:=[0.0, 5.0, 6.0, 7.0, 8.0, 9.0];

 n:=ReadInteger('Введите n: ');

 md:=n mod 10;

 if (md in s1) and (n < 10) then

   write('bochka')

 else if md in s2 then

   write('bochki')

 else

   write(n, ' bochek');

end.