Question

Создайте программу, которая по введенному k - количеству грибов выводит фразу "мы нашли в лесу k грибов", причем согласовывает окончание слова "гриб" с числом k. Например, при k=11 должно быть выведено "Мы нашли в лесу 11 грибов", а при k=22 - "Мы нашли в лесу 22 гриба". (Принимается только программа на Паскале, не на листочке.)
Задачу выполнить в программе Паскаль (его необязательно скачивать много онлайн версий), НЕ ИСПОЛЬЗУЯ ЦИКЛЫ (к тому моменту мы их еще не проходили)

Answer 1

Ответ:

Объяснение:

var

 k,v:integer;

 s:string;

 begin

   write('Введите количесво грибов k=');

   readln(k);

   v:= k mod 10;

   if v =1 then

     begin

     s:= 'гриб';

     end

   else if (v >1)and(v<5) then

     begin

     s:= 'гриба';

     end

   else begin

     s:= 'грибов';

     end;

   

   write('мы нашли в лесу ',k,' ',s);

end.