Вывод возраста человека в словесном виде

07.11.2013, 13:17. **Показов** 10464. **Ответов** 2

Студворк — интернет-сервис помощи студентам

Дано натуральное число n, определяющее возраст человека в годах. Дать для этого числа наименования "год", "года", "лет", например, 1 год, 23 года, 45 лет и т.д.

@tuy-vasiliy · 07.11.2013, 13:36

Сейчас сделаю, напишу в Паскале АВС, но думаю существенной разницы не будет

Добавлено через 10 минут

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program n1;
uses crt;
var
   a:integer;
begin
write('Введите Ваш возраст:');
readln(a);
case a of
1: writeln(a, ' год');
2..4: writeln(a, ' года');
5..20: writeln(a, ' лет');
21: writeln(a, ' год');
22..24: writeln(a, 'года');
25..30: writeln(a, ' лет');
else writeln(a, ' Это возраст?');
end;
end.

Реализовано через Case, можно и по другому, и намного короче... написал до 30 лет, по аналогии можно дописать и до двухста лет...

@ildwine · 07.11.2013, 13:40

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  n : byte;
begin
  write('введите возраст в годах: ');
  readln(n);
  case n mod 100 of
    11..19 : writeln(n, ' лет') else
    case n mod 10 of
      1 :  writeln(n, ' год');
      2..4 : writeln(n, ' года');
      else writeln(n, ' лет')
    end
  end
end.

Новые блоги и статьи Все статьи Все блоги /
Функция установки текстового статуса в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .

artyoma4ka

	Вывод возраста человека в словесном виде 07.11.2013, 13:17. Показов 10464. Ответов 2 Метки нет (Все метки) Дано натуральное число n, определяющее возраст человека в годах. Дать для этого числа наименования "год", "года", "лет", например, 1 год, 23 года, 45 лет и т.д.

Вывод возраста человека в словесном виде

Решение