Вывести на экран фамилии тех, кто достиг пенсионного возраста

@Nekris12 · Регистрация: 12.09.2010

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

Помогите решить пожалуйста
1. Даны такие сведения о 10 человек: фамилия, пол и дата рождения (дата типа структура). Определить возраст каждого, и вывести на экран фамилии тех, кто достиг пенсионного возраста (мужчины старше 60, женщины - 55).

@andrei63 · 13.01.2011, 18:00

Pascal

type baza=record
  data:integer;;
   fam:string[10];
   pol:string;
end;
var a: array [1..10] of baza;
   I: integer;
 
begin
   for I:=1 to 10 do
   begin
      writeln ('введите фамилию');
      readln (a[I].fam);
      writeln ('введите возраст');
      readln (a[I].data);
      writeln ('введите пол');
      readln (a[I].pol);
      end;
for i:=1 to 10 do   begin
if (a[i].data>=60)and (a[i].pol='m')then writeln(a[i].fam);
if (a[i].data>=55)and (a[i].pol='z')then writeln(a[i].fam);
 end;
end.

@Nekris12 0 / 0 / 0 Регистрация: 12.09.2010 Сообщений: 35
		1
	Вывести на экран фамилии тех, кто достиг пенсионного возраста 13.01.2011, 16:36. Показов 2831. Ответов 1 Метки нет (Все метки) Помогите решить пожалуйста 1. Даны такие сведения о 10 человек: фамилия, пол и дата рождения (дата типа структура). Определить возраст каждого, и вывести на экран фамилии тех, кто достиг пенсионного возраста (мужчины старше 60, женщины - 55). 0

	13.01.2011, 18:00

Опции темы

Вывести на экран фамилии тех, кто достиг пенсионного возраста

Решение