profile
Опубликовано 2 года назад по предмету Информатика от 4an4an

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

  1. Ответ
    Ответ дан Gluk1

    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.

Самые новые вопросы