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

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

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

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

@JokeR.BY · 01.12.2014, 19:11

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

@Cyborg Drone · 01.12.2014, 19:17

Pascal

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

    else case n mod 10 of
      1: s := ' год';
      2..4: s := ' года'
      else s := ' лет'
    end

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

Pascal

    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

@Evgeniy7274 0 / 0 / 0 Регистрация: 10.10.2014 Сообщений: 4
		1
	Дано натуральное n. Определить возраст человека в годах 01.12.2014, 18:05. Показов 2757. Ответов 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 Модератор 9731 / 5069 / 3284 Регистрация: 17.08.2012 Сообщений: 15,608
	01.12.2014, 20:11	9
	Сообщение от Sergio Leone что будет для n=20 Да, верно. Про 0 забыл, ошибся. С if получается сложно и ненужно. 1

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

Опции темы