есть начало, нужно закончить, паскаль

@isys08 · Регистрация: 15.11.2010

Студворк — интернет-сервис помощи студентам

Даны сведения о сотрудниках учреждения: фамилия, инициалы, номер телефона. Выдать на экран сведения о сотрудниках, номер телефона которых содержит одинаковые цифры и подсчитать количество одинаковых цифр.
помогите пожалуйста

Pascal

program sotrudniki;
uses crt;
type
sotr=record;
n, f:string;
v:byte;
nom_t:array[1..11] of 0..9;
end;
var
sot:array[1..100] of sotr;
i,j,m:integer;
begin
writeln('Введите число сотрудников');
read(m);
for i:=1 to m do begin
    with sot[i] do begin
    writeln('Введите фамилию сотрудника');
    readln(n);
    writeln('Введите инициалы');
    readln(f);
    writeln('Введите номер');
    for j:=1 to 11 do
        read(nom_t[j]);
    end;end;

//сдесь надо ставить условие

end.

Добавлено через 10 минут
кто нить поможет нет???

@teleport · 15.11.2010, 20:57

Pascal

program sotrudniki;
uses crt;
type
sotr=record;
n, f:string;
v:byte;
nom_t:string;
end;
var
sot:array[1..100] of sotr;
i,e,m,p,d:integer; j:char;
begin
writeln('Ââåäèòå ÷èñëî ñîòðóäíèêîâ');
read(m);
for i:=1 to m do begin
with sot[i] do begin
writeln('Ââåäèòå ôàìèëèþ ñîòðóäíèêà ',i);
readln(n);
writeln('Ââåäèòå èíèöèàëû');
readln(f);
writeln('Ââåäèòå íîìåð');
readln(nom_t);
end;end;
writeln('ñîòðóäíèêè, íîìåð òåëåôîíà êîòîðûõ ñîäåðæèò îäèíàêîâûå öèôðû');
 
 
for e:=1 to m do begin
 
    d:=0;
    for j:='0' to '9' do
     begin
        p:=0;
        for i:=1 to length(sot[e].nom_t) do
           if sot[e].nom_t[i]=j then p:=p+1;
        if p>1 then d:=d+p;
 
    end;
    if d>0 then writeln(sot[e].n,'  ',sot[e].f,'  ',sot[e].nom_t,' êîëè÷åñòâî îäèíàêîâûõ öèôð â ¹òåë: ',d);
end;
end.

Опции темы