Вывести возраст вместе с последующим слово "год", "года" или "лет".

@boris370 · Регистрация: 11.12.2009

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

В общем вот. Ввести возраст человека (1-150 лет) и вывести его вместе с последующим слово "год", "года" или "лет".
Пример
Введите возраст 24
вам 24 года

Введите возраст
57
вам 57 лет
и т.д.
Заранее спасибо.

@Mиxaил · 22.01.2010, 18:11

Pascal

var n:integer;
begin
write('введите возраст: ');
readln(n);
if (n>11) and (n<21) then writeln('Вам ',n,' лет')
else
if (n mod 10 = 1) then writeln('Вам ',n,' год')
else
if ((n>21) and ((n mod 10 = 2) or (n mod 10 = 3) or (n mod 10 = 4))) or (n>1 and n<5) then writeln('Вам ',n,' года')
else
writeln('Вам ',n,' лет');
readln;
end.

проверить не могу, не дома, а на бумаге, вроде работает!!!!
где-то так, если че, подправь!

@Snoopy · 22.01.2010, 18:13

Сообщение от boris370

Заранее спасибо.

За что спасибо то?
читайте шапку форума, здесь помогают решать, а не решают за вас
покажите свои наработки

@Жолдас · 22.01.2010, 18:22

я проверил там на 10 строчке

Сообщение от Mиxaил

or (n>1 and n<5)

возьми в скобки "(n>1) and (n<5)" и будет работать!

@boris370 · 22.01.2010, 18:37 **[ТС]**

Жолдас, спс

@Жолдас · 22.01.2010, 18:46

boris370, Спасибо Mиxaил, я просто две скобки поставил)

@boris370 · 24.01.2010, 09:39 **[ТС]**

Жолдас, да, точно)

@boris370 -5 / 1 / 0 Регистрация: 11.12.2009 Сообщений: 51
		1
	Вывести возраст вместе с последующим слово "год", "года" или "лет". 22.01.2010, 17:48. Показов 9367. Ответов 6 Метки нет (Все метки) В общем вот. Ввести возраст человека (1-150 лет) и вывести его вместе с последующим слово "год", "года" или "лет". Пример Введите возраст 24 вам 24 года Введите возраст 57 вам 57 лет и т.д. Заранее спасибо. 0

@Snoopy 1915 / 1065 / 384 Регистрация: 06.12.2008 Сообщений: 2,802
	22.01.2010, 18:13	3
	Сообщение от boris370 Заранее спасибо. За что спасибо то? читайте шапку форума, здесь помогают решать, а не решают за вас покажите свои наработки 0

@Жолдас LegenD 45 / 44 / 15 Регистрация: 10.12.2009 Сообщений: 109
	22.01.2010, 18:22	4
	я проверил там на 10 строчке Сообщение от Mиxaил or (n>1 and n<5) возьми в скобки "(n>1) and (n<5)" и будет работать! 1

@boris370 -5 / 1 / 0 Регистрация: 11.12.2009 Сообщений: 51
	22.01.2010, 18:37 [ТС]	5
	Жолдас, спс 0

@Жолдас LegenD 45 / 44 / 15 Регистрация: 10.12.2009 Сообщений: 109
	22.01.2010, 18:46	6
	boris370, Спасибо Mиxaил, я просто две скобки поставил) 0

@boris370 -5 / 1 / 0 Регистрация: 11.12.2009 Сообщений: 51
	24.01.2010, 09:39 [ТС]	7
	Жолдас, да, точно) 0