Дано натуральное n. Определить возраст человека в годах

@Evgeniy7274 · Регистрация: 10.10.2014

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

Дано натуральное N. Определить возраст человека в годах, напечатать год, года или лет в зависимости от значения n.
Например: 11 лет, 44 года, 21 год.

@JokeR.BY · 01.12.2014, 19:11

а это N что именно обозначает?) дни, недели, месяцы, часы?)

@Cyborg Drone · 01.12.2014, 19:17

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var n: integer;
    s: string;
begin
  repeat
    write('Возраст = ');
    readln(n);
    if (n < 1) or (n > 199) then writeln('Неверный возраст. Повторите ввод.')
  until (n >= 1) and (n <= 199);
  case n mod 100 of
    10..19: s := ' лет';
    else case n mod 10 of
      0, 5..9: s := ' лет';
      1: s := ' год';
      2..4: s := ' года'
    end
  end;
  writeln('Возраст:  ', n, s);
  readln
end.

@Evgeniy7274 · 01.12.2014, 19:20 **[ТС]**

Добавлено через 54 секунды
JokeR.BY, возраст

@JokeR.BY · 01.12.2014, 19:23

Cyborg Drone, вместо одного из 12-14 строки можно было бы else написать)

@Cyborg Drone · 01.12.2014, 19:43

JokeR.BY, да. Лучше так:

Pascal
11
12
13
14
15
    else case n mod 10 of
      1: s := ' год';
      2..4: s := ' года'
      else s := ' лет'
    end

или вовсе вот так:

Pascal
11
12
13
14
15
    else if n mod 10 < 2 
      then s := ' год'
      else if n mod 10 < 5
        then s := ' года'
        else s := ' лет'

Добавлено через 1 минуту
Ой, ошибок навалял... Подправил.

@Sergio Leone · 01.12.2014, 19:57

зря Вы оптимизацией занялись.
мало того, что это весьма сомнительно в плане эффективности,
точно менее наглядно, так ещё и ошибочные результаты возвращает:

Сообщение от Cyborg Drone

Pascal
1
2
else if n mod 10 < 2 
* * * then s := ' год'

что будет для n=20 ?

Добавлено через 4 минуты
если бы я выбирал какой вариант взять, я бы взял код из пост #3

@JokeR.BY · 01.12.2014, 19:58

Не по теме:

лёгким движением руки по клавиатуре взбаламутил людей :rofl:

@Cyborg Drone · 01.12.2014, 20:11

Сообщение от Sergio Leone

что будет для n=20

Да, верно. Про 0 забыл, ошибся. С if получается сложно и ненужно.

@Sergio Leone · 01.12.2014, 20:42

Не по теме:

Сообщение от JokeR.BY

лёгким движением руки по клавиатуре взбаламутил людей

Ага. Красавчик! :D

Новые блоги и статьи Все статьи Все блоги /
Java Micronaut в Docker: контейнеризация с Maven и Jib Javaican 16.03.2025 Когда речь заходит о микросервисной архитектуре на Java, фреймворк Micronaut выделяется среди конкурентов. Он создан с учётом особенностей облачных сред и контейнеров, что делает его идеальным. . .	Управление зависимостями в Java: Сравнение Spring, Guice и Dagger 2 Javaican 16.03.2025 Инъекция зависимостей (Dependency Injection, DI) — один из фундаментальных паттернов проектирования, который радикально меняет подход к созданию гибких и тестируемых Java-приложений. Суть этого. . .	Apache Airflow для оркестрации и автоматизации рабочих процессов Mr. Docker 16.03.2025 Управление сложными рабочими процессами — одна из главных головных болей инженеров данных и DevOps-специалистов. Представьте себе: каждый день нужно запускать десятки скриптов в определенной. . .	Оптимизация приложений Java для ARM Javaican 16.03.2025 ARM-архитектура переживает настоящий бум популярности в технологическом мире. Когда-то воспринимаемая исключительно как решение для мобильных устройств и встраиваемых систем, сегодня она штурмует. . .	Управление состоянием в Vue 3 с Pinia и Composition API Reangularity 16.03.2025 Когда я начал работать с Vue несколько лет назад, мне казалось достаточным использовать простую передачу данных через props и события между компонентами. Однако уже на среднем по сложности проекте. . .
Введение в DevSecOps: основные принципы и инструменты Mr. Docker 16.03.2025 DevSecOps - это подход к разработке программного обеспечения, который объединяет в себе принципы разработки (Dev), безопасности (Sec) и эксплуатации (Ops). Суть подхода заключается в том, чтобы. . .	GitHub Actions vs Jenkins: Сравнение инструментов CI/CD Mr. Docker 16.03.2025 В этой битве за эффективность и скорость выпуска программных продуктов ключевую роль играют специализированные инструменты. Два гиганта в этой области — GitHub Actions и Jenkins — предлагают разные. . .	Реактивное программирование с Kafka Stream и Spring WebFlux Javaican 16.03.2025 Реактивное программирование – это программная парадигма, ориентированная на потоки данных и распространение изменений. Она позволяет выражать статические или динамические потоки данных и. . .	Простая нейросеть на КуМир: Учебное пособие по созданию и обучению нейронных сетей EggHead 16.03.2025 Искусственные нейронные сети — удивительная технология, позволяющая компьютерам имитировать работу человеческого мозга. Если вы хотя бы немного интересуетесь современными технологиями, то наверняка. . .	Исполнитель Кузнечик в КуМир: Решение задач EggHead 16.03.2025 Среди множества исполнителей в системе КуМир особое место занимает Кузнечик — простой, но невероятно полезный виртуальный персонаж, который перемещается по числовой прямой, выполняя ваши команды. На. . .

@Evgeniy7274 0 / 0 / 0 Регистрация: 10.10.2014 Сообщений: 4
		1
	Дано натуральное n. Определить возраст человека в годах 01.12.2014, 18:05. Показов 2897. Ответов 9 Метки нет (Все метки) Дано натуральное N. Определить возраст человека в годах, напечатать год, года или лет в зависимости от значения n. Например: 11 лет, 44 года, 21 год. 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	01.12.2014, 19:11	2
	а это N что именно обозначает?) дни, недели, месяцы, часы?) 0

@Evgeniy7274 0 / 0 / 0 Регистрация: 10.10.2014 Сообщений: 4
	01.12.2014, 19:20 [ТС]	4
	Добавлено через 54 секунды JokeR.BY, возраст 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	01.12.2014, 19:23	5
	Cyborg Drone, вместо одного из 12-14 строки можно было бы else написать) 0

@JokeR.BY
	01.12.2014, 19:58	8
	Не по теме: лёгким движением руки по клавиатуре взбаламутил людей :rofl: 0

@Cyborg Drone Модератор 10140 / 5476 / 3370 Регистрация: 17.08.2012 Сообщений: 16,744
	01.12.2014, 20:11	9
	Сообщение от Sergio Leone что будет для n=20 Да, верно. Про 0 забыл, ошибся. С if получается сложно и ненужно. 1

@Sergio Leone
	01.12.2014, 20:42	10
	Не по теме: Сообщение от JokeR.BY лёгким движением руки по клавиатуре взбаламутил людей Ага. Красавчик! :D 0

Опции темы