Дано целое число в диапазоне 40-70, определяющее возраст (в годах). Вывести строку-описание указанного возраста, обеспе

@plzhelpme · Регистрация: 16.01.2018

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

Дано целое число в диапазоне 40-70, определяющее возраст (в годах). Вывести строку-описание
указанного возраста, обеспечив правильное согласование числа со словом «год»,
например: 40 - «сорок лет», 41 - «сорок один год», 42 - «сорок два года».

@JuriiMW · 18.01.2018, 11:57

Pascal

const d:array[4..7]of String[11]=('сорок ','пятьдесят ','шестьдесят ','семьдесят ');
e:array[0..9] of String[11]=('лет','один год','два года','три года','четыре года','пять лет','шесть лет','семь лет','восемь лет','девять лет');
var y:Byte;
begin
  Read(y);Write(d[y div 10],e[y mod 10]);
end.

@plzhelpme 0 / 0 / 0 Регистрация: 16.01.2018 Сообщений: 46
		1
	Дано целое число в диапазоне 40-70, определяющее возраст (в годах). Вывести строку-описание указанного возраста, обеспе 18.01.2018, 10:19. Показов 2282. Ответов 1 Метки нет (Все метки) Дано целое число в диапазоне 40-70, определяющее возраст (в годах). Вывести строку-описание указанного возраста, обеспечив правильное согласование числа со словом «год», например: 40 - «сорок лет», 41 - «сорок один год», 42 - «сорок два года». 0

	18.01.2018, 11:57

Дано целое число в диапазоне 40-70, определяющее возраст (в годах). Вывести строку-описание указанного возраста, обеспе

Решение