Type people=record subn:string; //фамилия n:string; //имя otn:string; //отчество rai:string; //район street:string; //улица hou:integer; //дом ap:integer; //квартира plBor:string; //место рождения dayBor:integer; //день рождения mounthBor:integer; //месяц рождения yearBor:integer; //год рождения mainWorkTime:integer; //общий стаж работы dangWorkTime:integer; //стаж работы на "вредном производстве" gender:string; //пол moneyPerMounth:integer; //з/п, из которой была начислена пенсия oldMoneyPerMounth:integer; //пенсия end;
Var oldPeople:array of people; i,n,st:integer; sFIO:string; sr:real; begin sr:=0; write('Введите количество пенсионеров:'); readln(n); setlength(oldPeople,n); for i:=0 to n-1 do begin write('Фамилия пенсионера #',i,':'); readln(oldPeople[i].subn); write('Имя пенсионера #',i,':'); readln(oldPeople[i].n); write('Отчество пенсионера #',i,':'); readln(oldPeople[i].otn); write('Район пенсионера #',i,':'); readln(oldPeople[i].rai); write('Улица пенсионера #',i,':'); readln(oldPeople[i].street); writeln('Дом пенсионера #',i,':'); readln(oldPeople[i].hou); writeln('Квартира пенсионера #',i,':'); readln(oldPeople[i].ap); writeln('Место рождения пенсионера #',i,':'); readln(oldPeople[i].plBor); writeln('День рождения пенсионера #',i,':'); readln(oldPeople[i].dayBor); writeln('Месяц рождения пенсионера #',i,':'); readln(oldPeople[i].mounthBor); writeln('Год рождения пенсионера #',i,':'); readln(oldPeople[i].yearBor); writeln('Общий стаж работы пенсионера #',i,':'); readln(oldPeople[i].mainWorkTime); writeln('Cтаж работы на "вредном производстве" пенсионера #',i,':'); readln(oldPeople[i].dangWorkTime); writeln('Пол пенсионера #',i,':'); readln(oldPeople[i].gender); writeln('з/п, из которой была начислена пенсия пенсионера #',i,':'); readln(oldPeople[i].moneyPerMounth); writeln('Пенсия пенсионера #',i,':'); readln(oldPeople[i].oldMoneyPerMounth); sr+=oldPeople[i].oldMoneyPerMounth; end; write('Введите ФИО пенсионера'); readln(sFIO); var FIO:=sFIO.Split; for i:=0 to n do if (oldPeople[i].subn=FIO[0]) and (oldPeople[i].n=FIO[1]) and (oldPeople[i].otn=FIO[2]) then begin writeln(oldPeople[i].oldMoneyPerMounth); break; end; write('Введите стаж работы на "вредном производстве":'); readln(st); for i:=0 to n do if oldPeople[i].dangWorkTime=st then writeln(oldPeople[i].subn,' ',oldPeople[i].n,' ',oldPeople[i].otn); sr/=n; writeln('Список пенсионеров с зарплатой ниже среднего'); for i:=0 to n do if oldPeople[i].oldMoneyPerMounth<sr then writeln(oldPeople[i].subn,' ',oldPeople[i].n,' ',oldPeople[i].otn); end.
Если ваш DVD привод не читает диски, не спешите бежать за новым! Дисководы по многим причинам могут начать «выделываться». Возможно, проблема совсем не в приводе. А если виноват дисковод, то есть вернуть его к жизни. В этой статье я расскажу всё что знаю об этой проблеме, а в конце статьи поведаю как прочитать поцарапанные диски!
DVD привод не читает диски - решение проблемы
Характер проблемы
В первую очередь надо определиться в характере неисправности. DVD привод может не читать вообще все диски, или только некоторые. Проверьте это. Если некоторые диски всё же читаются, значит проблема в «железе». Как её решить я расскажу ниже.
Первым делом мы попробуем вернуть дисководу былую прыть с снятия программных ограничений. При сбоях в работе операционной системы привод может вообще ничего не
program abc;
var a,b,c,d:integer;
begin
readln(a);
b:= a mod 10;
c:= a div 100;
d:= a div 10 mod 10;
writeln(c);
writeln(d);
writeln(b);
end.
,где "с" первая цифра
"d" вторая цифра
"b" третья цифра