Сделано для трёх книг, потом поменяешь в двух местах
PROGRAM prim2;
uses crt;
Type
book=record
avtor: string[20];
name:string[25];
year:integer;
end;
Var
f,i: integer;
b:array[1..3] of book;
BEGIN
clrscr;
f:=0;
{формирование записей}
for i:=1 to 3 do
Begin
write('Введите название книги: ');
readln(b[i].name);
write('Введите фамилию автора: ');
readln(b[i].avtor);
write('Введите год издания: ');
readln(b[i].year);
end;
writeln;
Writeln('Сведения о книгах (автор,название,год издания) год издания которых позже 1990');
for i:=1 to 3 do
Begin
if b[i].year>2003 then {проверка условия задачи}
Begin
f:=f+1;
Writeln(f:6,' ', b[i].avtor,' ', b[i].name,' ', b[i].year);
end;
end;
writeln('Итог: ',f);
readln;
END.
6 часов. 70 км/ч. 420 км
9 часов. 70 км/ч. 630 км
Объяснение:
Ну смотри. Что бы узнать среднюю скорость на всем пути, мы слаживаем 630+420=1050 км проехали семья
1050км/15часов=70км/ч - скорость автомобиля на всем пути.
Теперь, что бы узнать время, которое они ехали, берём сначала протяжность пути к курорту и делим на скорость, соответственно узнаём, сколько за растили время на приезд к курорту. 420/70=6 часов - была в пути семья к курорту.
То же самое, но уже семья возвращается домой. 630/70=9 часов - семья потратила на возвращение домой.
Надеюсь на отметку лучший ответик)
