//PascalABC.NET 3.2 сборка 1318
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.
Прямые параллельны между собой, если частное коэффициентов у X и Y равны.
Коэффициент - это ч<span>исловой множитель в алгебраическом выражении.*
</span>Посчитаем их.
7x + 6y + 9 = 0
У этого уравнения коэффициент у X - 7, а у Y - 6
их частное - это
<span>5x + 7y + 14 = 0
</span>Тут коэффициенты X, Y это 5 и 7
их частное - <span>
</span>
8x + 6y + 19 = 0
Тут коэффициенты X, Y это 8 и 6
их частное -
сократим дробь на 2, получим
15x + 21y + 22 = 0
Тут коэффициенты X, Y это 15 и 21
их частное - <span>
</span>сократим дробь на 3, получим
<span>10x + 14y + 4 = 0
</span>Тут коэффициенты X, Y это 10 и 14
их частное -
сократим дробь на 2<span>, получим</span> <span>
</span>
И того у нас получилось 3 равные дроби, это и есть те уравнения.
<span>5x + 7y + 14 = 0
</span><span>15x + 21y + 22 = 0
</span>10x + 14y + 4 = 0
Не real, а read:
for i:=1 to 10 do
read(A[i]);
Сколько раз вы выводите массив?
Потому что это что-то непонятное:
for i:=1 to 10 do
writeln (A[1],' ',A[2],' ',A[3],' ',A[4],' ',A[5],' '); (10 раз выводятся первые 5 элементов(?))
writeln (A[6],' ',A[7],' ',A[8],' ',A[9],' ',A[10],' ');
Если нужно вывести массив 1 раз:
for i:=1 to 10 do
writeln (A[i],' ');
Заполняншь 1 кувшин в котором 9 литров водой и затем из него переливаешь воду в кувшин 5 литровый (заполняешь его до верха)в 1 кувшине останется 4 литра т.к. 9-5=4 , а потом не знаю
Var A,Min,N:integer;
Begin
Min:=30001;
Read(N);
For N:= 1 to N do
Begin
Read(A);
if (A mod 7 = 0)and(A < Min) then Min:=A;
End;
Write(Min)
End.