Кто шарит в решить 2 задачи, отблагодарю в Только скиньте весь код, хочу разобрать. Задача 1. По строительным нормам дома, ниже шести этажей, не должны иметь лифт. Дома высотой до девяти этажей должны иметь один лифт, более высокие дома - два лифта. По известным количеством этажей определить, сколько лифтов необходимо установить в доме.
Задача 2. В аэропорту выполняется регистрация билетов на рейсы 107, 201, 32. Самолеты этих рейсов находятся на стоянках с номерами 3, 4, 5 соответственно. По известному номеру рейса определить, на какую стоянку необходимо отправить багаж пассажиров.

👇

Увидеть ответ

Ответ:

228465

30.09.2021

Пойдет?

// этажей<6 лифта нет, до 9 этажей 1 лифт, более 9 2 лифта

//По известным количеством этажей определить, сколько лифтов необходимо установить в доме.

program v1;

var n,m:integer;

begin

writeln('Введите количество этажей'); readln(n);

m:=n;

if m<6 then writeln('Лифта нет');

if (m>=6) and (m<=9) then writeln('1 лифт');

if m>=10 then writeln('2 лифта');

end.

//рейсы 107, 201, 32. Самолеты этих рейсов находятся на стоянках с номерами 3, 4, 5 соответственно.

//По известному номеру рейса определить, на какую стоянку необходимо отправить багаж пассажиров.

program v1;

var n,m:integer;

begin

writeln('Введите номер рейса'); readln(n);

m:=n;

if m=107 then writeln('Стоянка с номером 3');

if m=201 then writeln('Стоянка с номером 4');

if m=32 then writeln('Стоянка с номером 5');

if (m<>107) and (m<>201) and (m<>32) then writeln('Таких рейсов нет');

end.

Кто шарит в решить 2 задачи, отблагодарю в Только скиньте весь код, хочу разобрать. Задача 1. По стр

4,8(37 оценок)

Открыть все ответы

Ответ:

Dariu111

30.09.2021

Uses crt;
type oc=record
per,bt,tr:integer;
end;
ab=record
fam,im:string;
ocen:oc;
end;
var b:array [1..50] of ab;
l:ab;
i,n,g,k,h:integer;
begin
clrscr;
writeln ('введи количество абитуриентов');
readln (n);
Writeln ('Вводи фамилии, имена и 3 оценки');
for i:=1 to n do
with b[i] do
begin
readln (fam);
readln (im);
readln (ocen.per,ocen.bt,ocen.tr);
end;
clrscr;
for j:=1 to n do
for i:=1 to n-1 do
if b[i].fam>b[i+1].fam then
begin
l:=b[i];
b[i]:=b[i+1];
b[i+1]:=l;
end;
writeln ('Список всех аббитуриентов:');
for i:=1 to n do
writeln (b[i].fam,' ',b[i].im,' ',b[i].ocen.per,' ',b[i].ocen.bt,' ',b[i].ocen.tr);
writeln ('Список допущенных аббитуриентов');
for i:=1 to n do
with b[i] do
begin
with ocen do
if (per>30) and (bt>30) and (tr>30) and (per+bt+tr>140) then writeln (fam,' ',im,' ',ocen.per,' ',ocen.bt,' ',ocen.tr);
end;
readln;
end.

4,6(99 оценок)

Ответ: