1) пассажир Иванов живёт в Москве;
2) проводник живёт на полпути между Москвой и Санкт-Петербургом;
3) пассажир-однофамилец проводника живёт в Санкт-Петербурге;
4) у пассажира, который живёт ближе к месту жительства проводника, чем другие пассажиры, вдвое больше детей, чем у проводника;
5) у пассажира Петрова трое детей;
6) Сидоров (из поездной бригады) недавно выиграл у машиниста партию на бильярде
7) п1+п3 = проводник не Иванов. Кто-то из пассажиров живет в С-Петербурге
8) п4+п5+п7 = У Петрова нечетное кол-во детей, значит он не тот кто живет рядом с проводником. Петров живет в С-Петербурге
9) п3+п8 = У проводника фамилия Петров
10) п6+п9 = машинист не Сидоров. Машинист - Иванов
Ответ: Иванов
Var C:array[1..100] of Integer;
i,N,Q,R,A,B:integer;
T:real;
begin
Readln(N,A,B);
For i:=1 to N do
C[i]:=Random(-20,20);
R:=C[1];
Q:=1;
For i:=1 to N do
begin
If C[i]<R then
R:=C[i];
If C[i] mod 2=1 then
Q:=Q*C[i];
If (C[i]>A) and (C[i]<B) then
S:=S+1;
end;
T:=(R/(Q+1))+S;
Writeln(R,' ',Q,' ',S,' ',T);
end.
Ок
(Класс объекта) Класс — не информативно можно описать что это разновидность абстрактного типа данных в объектно-ориентированном программировании, характеризуемый способом своего построения. ... пойдёт?
1.
program z1;
var x,y:real;
begin
writeln('введите х');
readln(x);
if x<>2 then
begin
y:=(2*x+3)/(x-2);
writeln('y=',y);
end
else
writeln('не существует');
end.
2.
program z1;
var s,k,i:integer;
begin
s:=0;
writeln('введите k');
readln(k);
for i:=1 to k do
if i mod 2<>0 then
s:=s+i;
writeln(s);
end.