Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Nyah
0 / 0 / 0
Регистрация: 03.02.2016
Сообщений: 1
1

Определить пору жизни каждого человека

03.02.2016, 17:04. Просмотров 806. Ответов 1
Метки нет (Все метки)

Дан возраст трех человек. Определить пору жизни каждого – детство (0-12 лет), отрочество (13-15), юность (16-25), зрелость (26-60), пожилой человек.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.02.2016, 17:04
Ответы с готовыми решениями:

Определить период жизни человека по введенным годам
Используя условный оператор , написать программу , которая по введенному...

Блок-схема. По номеру месца определить пору года
program month; var m: integer; begin write ('Введите число:'); readln (m);...

Определить возраст человека
Дорогие форумчанины, выручайте. Завтра зачёт, готовлюсь, как проклятая и тут...

Определить возраст человека
Известны год и номер месяца рождения человека, а также год и номер месяца...

Определите для каждой команды количество, фамилии и возраст участников, родившихся в указанную пору года
Информация об участниках спортивных соревнований содержит: наименование страны;...

1
Joy
Эксперт Pascal/Delphi
2163 / 1194 / 1434
Регистрация: 29.08.2014
Сообщений: 4,373
03.02.2016, 18:48 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
const n=3;
var
  a:array[1..n] of integer;
  i:integer;
function LifeTime(t:integer):string;
var
  r:string;
begin
  case t of
    0..12  :r:='Детство';
    13..15 :r:='Отрочество';
    16..25 :r:='Юность';
    26..60 :r:='Зрелость';
    else   r:='Пожилой человек';
  end;
  LifeTime:=r;
end;
begin
  writeln('введите возраст ',n,' человек');
  for i:=1 to n do begin
    write(i,'-й человек. Его возраст:');readln(a[i]);
  end;
  writeln;
  for i:=1 to n do
    writeln(i,'-й человек. возраст ',a[i],'; период жизни - ',lifetime(a[i]));
  readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.02.2016, 18:48

Определить возраст человека в годах
Дано натуральное число n (n≤100), определяющее возраст человека (в годах). Дать...

Определить возрастную категорию человека
Дано натуральное число n(n<100), определяющее возраст человека. Дать для этого...

Определить возрастную группу человека
Помогите пожалуйста составить программу, которая позволяет определить, к какой...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru