Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.70/64: Рейтинг темы: голосов - 64, средняя оценка - 4.70
0 / 0 / 0
Регистрация: 03.05.2011
Сообщений: 6

Определение возраста человека - "год", "года", "лет"

10.05.2011, 18:23. Показов 12756. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте!Помогите,пожалуйста,решить задачу,была бы очень благодарна!

ДАНО НАТУРАЛЬНОЕ ЧИСЛО B (B<=100),ОПРЕДЕЛЯЮЩЕЕ ВОЗРАСТ ЧЕЛОВЕКА(В ГОДАХ).СОСТАВИТЬ АЛГОРИТМ(ПРОГРАММУ),ДАЮЩИЙ ДЛЯ ЭТОГО ЧИСЛА НАИМЕНЬШЕЕ "ГОД", "ГОДА" ИЛИ "ЛЕТ":НАПРИМЕР,1 ГОД,23 ГОДА,45 ЛЕТ И Т.Д.

Заранее спасибо!
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
10.05.2011, 18:23
Ответы с готовыми решениями:

Составить программу, которая при вводе возраста человека от 1 до 100 выводит слова «лет» или «год» в соответствующей форме.
1)Составить программу, которая при вводе возраста человека от 1 до 100 выводит слова «лет» или «год» в соответствующей форме. 2)«Сумма...

Ввести возраст человека (от 1 до 150 лет) и вывести его вместе с последующим словом "год", "года" или "лет"
Здравствуйте! Помогите решить задачу! Ввести возраст человека (от 1 до 150 лет) и вывести его вместе с последующим словом «год», «года»...

Введено число Y, означающее количество лет. 1<=Y<=99. Вывести сообщение «Вам Y [лет, год, года]», с учетом формы слова
Введено число Y, означающее количество лет. 1&lt;=Y&lt;=99. Вывести сообщение «Вам Y », с учетом формы слова.

1
100 / 93 / 90
Регистрация: 10.05.2011
Сообщений: 172
10.05.2011, 19:07
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Const
 g = 'год';
 g1 = 'года';
 l = 'лет';
Var
 age:integer;
Begin
 Repeat
  Write('Введите возраст: ');
  readln(age);
 Until (age >=1) and (age <=100);
 write(age);
 Case age of
  1,21,31,41,51,61,71,81,91:write(' ',g);
  2..4,22..24,32..34,42..44,52..54,62..64,72..74,82..84,92..94:write(' ',g1);
  else write(' ',l);
 End;
End.
2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
10.05.2011, 19:07
Помогаю со студенческими работами здесь

Дописать к введенному числу слово Год, года, лет
В программе ошибка. Суть состоит в том - если ввести, к примеру, число 11, программа должна написать 11 лет! Писать то пишет, но вот только...

Напечатать фразу "Мне N лет", согласовав слово "лет, год, года" с числом N
Вводится число лет (N&lt;=25). Напечатать фразу &quot;Мне N лет&quot;, согласовав слово &quot;лет, год, года&quot; с числом N

Определить возраст человека год, года, лет
Определить возраст человека год, года, лет.

Напечатать Мне K лет, в нужных случаях слово «лет» заменяя на «год» или «года»
3. Составьте программу, которая для числа K (от 1 до 99), введенного вами, напечатает фразу «Мне K лет», где K – введенное число, при этом...

Год, года, лет
Есть задача, в которой нужно при вводе допустим цифр &quot;55&quot; программа выдавала годы: Допустим 1 год 2 года 3 года 4 года 5 лет ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru