Question

Создайте программу, которая по введенному k - количеству грибов выводит фразу "мы нашли в лесу k грибов", причем согласовывает окончание слова "гриб" с числом k. Например, при k=11 должно быть выведено "Мы нашли в лесу 11 грибов", а при k=22 - "Мы нашли в лесу 22 гриба". (Принимается только программа на Паскале, не на листочке.)

Answer 1

program Project1;

 

var

 S : String;

 K, Num1, Num2 : Integer;

begin

 repeat

   Writeln('Задайте целое число:');

   Readln(K);

 

   S := 'Мы собрали ' + IntToStr(K) + ' ';

   Num1 := K mod 10;

   K := K div 10;

   Num2 := K mod 10;

 

   case Num1 of

     1 :

     begin

       if Num2 = 1 then S := S + 'грибов'

       else S := S + 'гриб';

     end;

     2..4 :

     begin

       if Num2 = 1 then S := S + 'грибов'

       else S := S + 'гриба';

     end;

     else

       S := S + 'грибов';

   end;

 

   S := S + ' в лесу.';

 

   Writeln('Результат:');

   Writeln(S);

 

   Writeln('Повторить - Enter. Выход - любой символ + Enter.');

   Readln(S);

 until S <> '';

end

Answer 2

Конечно, вот программа на Pascal, которая реализует описанное поведение:

pascalCopy code
program MushroomsCounter;

var
  k: Integer;

begin
  Write('Введите количество грибов: ');
  Readln(k);

  if (k mod 10 = 1) and (k mod 100 <> 11) then
    Writeln('Мы нашли в лесу ', k, ' гриб')
  else if (k mod 10 >= 2) and (k mod 10 <= 4) and ((k mod 100 < 10) or (k mod 100 >= 20)) then
    Writeln('Мы нашли в лесу ', k, ' гриба')
  else
    Writeln('Мы нашли в лесу ', k, ' грибов');
end.

Просто скопируйте этот код в среду разработки Pascal (например, Free Pascal) и выполните его. После ввода значения переменной k, программа выведет соответствующее предложение с правильным склонением для слова "гриб".