Составьте программу которая по введенному вами к числу грибов

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

Но работает, если перебирать некоторые числа, не на всех числах. Пожалуйста, подскажите.

Изображения

1.jpg (294.6 Кб, 153 просмотров)

Форумчанин
Регистрация: 17.11.2009
Сообщений: 963

Очередной грибных дел мастер предстанет перед законом

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, вывести ГРИБОВ, а для остальных — ГРИБА.

«Мы нашли двадцать два грибов?» Интересная логика.
Все тривиальное просто
Последний раз редактировалось whatever; 26.09.2012 в 19:25 .
Регистрация: 16.05.2012
Сообщений: 3,211

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

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;
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы.
Последний раз редактировалось Sciv; 26.09.2012 в 19:28 .

Источник: www.programmersforum.ru

Pascal (Урок 9) Деление div, mod

Составьте программу которая по введенному вами к числу грибов

Привет Лёва Середнячок

Составьте программу, которая по введенному вами K — числу грибов печатает фразу <Мы нашли в лесу K грибов>, причем согласовывает окончание слова с числом K. Количество грибов может быть любым целым числом: 1, 3, 34, 127 и т.д. Окончание фразы определяется значением последней цифры.

4 (13 оценок)

Yarr

Yarr 9 лет назад

Светило науки — 10 ответов — 0 раз оказано помощи

var g,i:integer;
begin
read(g);
if (g=1) or ((g>20) and (g mod 10=1)) then begin writeln(‘Мы нашли в лесу ‘,g,’ гриб’); i:=1; end;
if ((g mod 10>1) and (g mod 10<5)) or ((g>21) and (g mod 10>1) and (g mod 10<5)) then begin writeln(‘Мы нашли в лесу ‘,g,’ гриба’); i:=1; end;
if i=0 then writeln(‘Мы нашли в лесу ‘,g,’ грибов’);
end.