ПаскальВходной файл содержит данные о пользователях социальных сетей в виде: Иванов Иван...

Question

Паскаль
Входной файл содержит данные о пользователях социальных сетей в виде:
Иванов Иван М 42
Петрова Анна Ж 26
Вывести в выходной файл фамилии и имена всех мужчин младше 30 лет.

Comments

Turbo? Free? ABC? ABC.NET?

Answer 1

Var vz: integer;
    fin,fout: text;
    st: string;
begin
  assign(fin,'data.in');
  reset(fin);
  assign(fout,'data.out');
  rewrite(fout);
  while not eof(fin) do
  begin
    readln(fin,st);
    vz:=StrToInt(Copy(st,length(st)-1,2));  
    if (vz<30) and (st[length(st)-3]='М') then<br>       writeln(fout,Copy(st,1,length(st)-5));
  end;
  close(fin);
  close(fout);
end.
 
{ data.in

Иванов Иван М 26
Перова Марья Ж 21
Петров Василий М 32
Сидоров Андрей М 18
    
  data.out
 
Иванов Иван
Сидоров Андрей

}