Есть интересная задачка по Delphi!! Кто сможет решить? - Помощь студентам

St1mkA · 04.10.2009, 18:22

Дано натуральное число (n<=100), определяющее возраст человека в годах. Для этого числа напишите наименование "Год", "Года", "Лет".

Мэс · 04.10.2009, 18:54

все элементарно, Ватсон=)

Код:

s := '';

  if ((y[length(y)] = '1') and (y <> '11')) then
    s := 'год';

  if ((y[length(y)] in ['2','3','4']) and (y<>'12')and (y<>'13') and(y<>'14')) then
    s := 'года';

  if (s = '') then
    s := 'лет';

наслаждайтесь=)

St1mkA · 04.10.2009, 19:00

Спасибо!!!

04.10.2009, 18:22	#1
St1mkA Пользователь Регистрация: 04.10.2009 Сообщений: 39	Есть интересная задачка по Delphi!! Кто сможет решить? Дано натуральное число (n<=100), определяющее возраст человека в годах. Для этого числа напишите наименование "Год", "Года", "Лет".

04.10.2009, 18:54	#2
Мэс Пользователь Подтвердите свой е-майл Регистрация: 07.08.2007 Сообщений: 22	все элементарно, Ватсон=) Код: `s := ''; if ((y[length(y)] = '1') and (y <> '11')) then s := 'год'; if ((y[length(y)] in ['2','3','4']) and (y<>'12')and (y<>'13') and(y<>'14')) then s := 'года'; if (s = '') then s := 'лет';` наслаждайтесь=)

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Кто сможет помочь с библиотекой в C++	Перец	Помощь студентам	7	23.03.2009 20:00
Нужен кто-нибудь, кто сможет подсказать, как подступиться к программированию Delphi & C++	Koshka_Kali	Помощь студентам	2	30.11.2008 13:23
Помогите кто сможет, пожалуйста	b00s	Microsoft Office Access	5	05.04.2008 12:57
Помогите плиз есть интересная задачка	Dima-05	Общие вопросы Delphi	1	27.02.2007 15:29

04.10.2009, 19:00	#3
St1mkA Пользователь Регистрация: 04.10.2009 Сообщений: 39	Спасибо!!!