Известны фамилии,адреса и телефоны 25-ти человек,Найти фамилии и адреса людей,чей телефон начинается с цифры 3. Расмотреть два слу

[salomon93]

помогите пожалуйста


Известны фамилии,адреса и телефоны 25-ти человек,Найти фамилии и адреса людей,чей телефон начинается с цифры 3. Расмотреть два случая : а)телефон задан в виде семизначного числа.
б)телефон задан в виде ,аналогичном следующему:268-50-59

[alexiz]

Сообщение от salomon93

помогите пожалуйста
Известны фамилии,адреса и телефоны 25-ти человек,Найти фамилии...

О чем хоть речь. На каком языке искать будем?

[Mad_Cat]

На каком языке искать будем?

Вопрос странный

Форум программистов > Новички в программировании > Паскаль

[alexiz]

Сообщение от Mad_Cat

Вопрос странный

Хорошо бы чтоб ТС ответил..

[Mad_Cat]

вот его ответ

[salomon93]

Сообщение от Mad_Cat

вот его ответ

Масссивы величин типа Запись

[salomon93]

Сообщение от alexiz

О чем хоть речь. На каком языке искать будем?

Масссивы величин типа Запись

[salomon93]

Масссивы величин типа Запись

[salomon93]

язык паскаля

[alexiz]

Сообщение от salomon93

Известны фамилии,адреса и телефоны 25-ти человек,Найти фамилии и адреса людей,чей телефон начинается с цифры 3.
Расмотреть два случая :
а)телефон задан в виде семизначного числа.
б)телефон задан в виде ,аналогичном следующему:268-50-59

Масссивы величин типа Запись

Например так (вар.б):

type 
  TPhoneName=record
     Num: string[7]; 
     Fam: string[50]; 
     Adr: string[50]; 
  end;

var
   i: integer;
  T: array[1..25] of  TPhoneName;
begin
   {наполнить массив данными}
...
   {ищем телефоны с 3 в первом знаке}  
   for i:=1 to 25 do
   if Pos('3',Tel[i].Num)=1 then
   begin
      Writeln(T.Num,': ',T.Fam,' ',T.Adr);
   end;
   Readln;  
end.