Нужно составить задачу на Паскаль. Я сделал, но не до конца. Нужен Ваш совет!

[ArtemK]

Вам покажется, что задача легкая, но Вы не смейтесь, т.к. я только учусь!
Задача: Составьте программу, которая по введенному вами К - числу грибов печатает фразу "Мы нашли в лесу К грибов!", причем согласовывает окончание слова "гриб" с числом К. Количество грибов может быть любым целым числом: 1, 3, 34, 127 и т.д. Окончание фразы определяется значением последней цифры.
___________________________________ ________________________________
Это вся задача. Собственно, я ее составил, при введении, например, числа 5, программа пишет "Мы нашли 5 грибов!", так же и для 1. Но я не могу составить условия, например, для числа 22. Например, ввели число 22, и он вывел "Мы нашли 22 гриба!". Тут может и такая закономерность, что при введении числа, которое делится на 2, вывести ГРИБОВ, а для остальных - ГРИБА. Но работает, если перебирать некоторые числа, не на всех числах. Пожалуйста, подскажите.

[whatever]

var
  k,k2:integer;
begin
  readln(k);
  k2:=k;
  while k2>9 do
    k2:=(k2 mod 10);
  if (k2 in [2,3,4]) then
    writeln('мы нашли ',k,' гриба');
  if (k2 in [5,6,7,8,9,0]) then
    writeln('мы нашли ',k,' грибов');
  if k2=1 then
    writeln('мы нашли ',k,' гриб');
  readln;
end.

Кстати, проверять по последней цифре не совсем верно, так как возможны варинты вроде "мы нашли 13 гриба", но раз уж такие условия...

Например, ввели число 22, и он вывел "Мы нашли 22 гриба!". Тут может и такая закономерность, что при введении числа, которое делится на 2, вывести ГРИБОВ, а для остальных - ГРИБА.

"Мы нашли двадцать два грибов?" Интересная логика...

[Sciv]

подсказываю: определяешь окончания только для первого десятка цифр:

1 гриб; 2,3,4 гриба; 5,6,7,8,9,0 - грибов

Далее определяешь последнюю цифру числа: <число> mod 10 -> получаем цифру первого десятка, по которой и определяем окончание.

UPD. Пока писал это - уже ответили, чуть-чуть не успел. Но замечу про второй десяток - числа от 11 до 19:

readln(k);
k2:=k;
if (K2>=11) and (k2<=19) then 
  writeln ('Мы нашли ',k,' грибов') 
else
  begin
    while k2>9 do
      k2:=(k2 mod 10);
    if (k2 in [2,3,4]) then 
      writeln('мы нашли ',k,' гриба');
    if (k2 in [5,6,7,8,9,0]) then
      writeln('мы нашли ',k,' грибов');
    if k2=1 then
      writeln('мы нашли ',k,' гриб');    
  end;
readln;

[TinMan]

Сообщение от ArtemK

Вам покажется, что задача легкая, но Вы не смейтесь

АртемК, нечего тут оправдываться )), задача совершенно нормальная (скажу по секрету, большинство задач, с которыми тут приходят, гораздо легче)). Обычно, правда, она формулируется не про грибы, а про ворон (от известного выражения "ворон считать")). Поищи на эти слова, наверняка найдешь несколько решений.
Успехов тебе!

+1 обоим ответившим в тему, Whatever & Sciv

[ArtemK]

Ребят, всем СПАСИБО, что помогли!!! )