Помогите с заданием

[valeriy.sabziro]

Разработать консольную прикладную программу, которая предлагает пользователю ввести с клавиатуры данные президента некоторой страны.
После этого выводит на экран его возраст (в месяцах), а также сколько полных лет он находился на этой должности.

в паскале нужно зделать

[newerow1989]

По всем странам?
Это долго:

Страна - ФИО Президента - Кол-во лет

И таких строк...

[valeriy.sabziro]

Призедента любой страны да вообще можно выдумать не обезательно достоверные данные о презеденте

[newerow1989]

type pr=record
        fio,strana:string;
        vozrast,rabota:integer;
     end;
const n=2;
var i:integer;
    p:array[1..n] of pr;
    t:pr;
begin
   For i:=1 to n do
   begin
      Write('fio = '); Readln(p[i].fio);
      Write('strana = '); Readln(p[i].strana);
      Write('vozrast = '); Readln(p[i].vozrast);
      Write('rabota = '); Readln(p[i].rabota);
   end;
   Writeln;
   Write('wwedite fio = '); Readln(t.fio);
   For i:=1 to n do
      If t.fio=p[i].fio then
         Writeln('vozrast = ',p[i].vozrast,'; rabota = ',p[i].rabota);
   Readln;
end.

Так что ли?

[valeriy.sabziro]

oop_tasks.pdf
Вот здесь както по другому на писано с другими обьектами
помогите пожалуйста

[Stilet]

Погоди, так тебе объектный паскаль нужен?
А какой именно паскаль кстати вы изучаете?

[valeriy.sabziro]

Весь паскаль изучаем

[Aleksandr H.]

Прям уж и весь паскаль?

[valeriy.sabziro]

Ну по этому заданию можете помоч

[QUOTE=valeriy.sabziro;1557040]Вложение 78258 Друзья ну помогите же пожалуйста с этим заданием Разработать консольную прикладную программу, которая предлагает пользователю ввести с клавиатуры данные президента некоторой страны.
После этого выводит на экран его возраст (в месяцах), а также сколько полных лет он находился на этой должности.

в паскале нужно зделать

[Stilet]

Вижу что подробностей от тебя ждать не стоит...
Вот тебе скетч по криминальной деятельности:

program Project1;

uses sysutils,dateutils;

type
	{ TPoroshenko }
  TPresident=class
    private
     Name:String;
     Birthday,work:tdate;
     Constructor Create;
     Function Age:Integer;
     Function Hijacker:Integer;
	end;

{ TPoroshenko }

constructor TPresident.Create;
var s:strng;
begin
  Write('Имя:'); Readln(Name);
  Write('Дата рождения:'); Readln(s); Birthday:=StrToDate(s);
  Write('Когда зарулил в кресло?:'); Readln(s); work:=StrToDate(s);
end;

function TPresident.Age: Integer;
begin
  Result:=YearsBetween(now,Birthday);
end;

function TPresident.Hijacker: Integer;
begin
  Result:=YearsBetween(now,work);
end;

begin
  with TPresident.Create do begin
    Write('Ему сейчас ',Age,' лет, а тырит добро народное уже поди ',Hijacker);
    Free;
	end;
  Readln;
end.

Изучи. Улови идею, и сделай на свое паскале. Удачи.