Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

РЕБЯТА, ПОМОГИТЕ, ПРОШУ В записной книжке записаны фамилии и номера телефонов 10 человек. Определить есть ли в книжке телефон некоторого человека. Если есть - то вывести его телефон. ПАСКАЛЬ.ЗАПИСИ

Ответ оставил Гость

uses crt;
type TRec = Record
FIO: String[20];
TEL: String[7]
end;
var rec: TRec; i:integer;
who:string; flag:boolean;
a: array [1..20] of TRec;

begin
a[1].FIO := Иванов Петр;
a[1].TEL := +374844;
a[2].FIO := Крылова Света;
a[2].TEL := +373129;
a[3].FIO := Соловей Иван;
a[3].TEL := +370929;
//создай дальше до 10 сама
write(Write fio ); readln(who);
for i:=1 to 3 do
begin

if a[i].FIO = who then
begin
writeln(Номер ,who, = ,a[i].TEL) ;
flag:=true;
end
else
flag:=false;
end;
if flag=false then
writeln(cannot find ,who);
readln;
end.