Родина із трьох чоловік — батьки та дитина 12 років — планує подорожувати
до різних міст України. Потрібно визначити, подорож яким транспортом буде
дешевшою — потягом чи автомобілем, обґрунтувати вибір транспорту й
маршруту. Необхідні дані знайти в Інтернеті для маршрутів: Київ—Трусковець ,
Київ — Львів, Київ — Одеса, та моделі машини, наприклад Toyota Prius
s-відстань
c- вартість 1л бензину
g- вартість 1л газу
k-вартість квитка
os-кількість осіб
C++
ответ:
отдел +;
использует приём из "", вывод из "";
пер
n, сумма, сч, скор, макс: цел;
указ
сумма : = 0;
макс : = 0;
вывод.цепь("введите число автомобилей: ");
n : = приём.число();
если n < 1 и n > 30 то вывод.цепь("^ошибка.") иначе
вывод.цепь("^введите скорости: ^");
от сч : = 1 до n вып
скор : = приём.число();
если n < 1 и n > 300 то вывод.цепь("^ошибка."); стоп(0) кон;
увеличить(сумма, скор);
если скор > макс то макс : = скор кон;
вывод.цепь(" ")
кон
кон;
вывод.чвещ("^средняя скорость: %.1f.^", сумма / n, 0, 0, 0);
если макс > = 60 то вывод.цепь("yes") иначе вывод.цепь("no") кон
кон .
объяснение:
var N, i, a, m:integer;
c:boolean;
begin
writeln('Введите количество участников');
readln(N);
if ((N < 1) or (N >50))then begin
writeln('Ошибка');
exit;
end;
m := 0;
c := false;
for i:=1 to N do begin
writeln('На сколько вопросов правильно ответил ',i,' участник:');
readln(a);
if ((a < 0) or (a > 20)) then begin
writeln('Ошибка');
exit;
end;
if (a = 0) then
c := true;
if (a > m) then
m:= a;
end;
writeln('Количество вопросов, на которые ответил победитель правильно: ', m);
if (c = false) then
writeln('Есть ли участники, которые не ответили ни на один вопрос правильно: NO')
else write('Есть ли участники, которые не ответили ни на один вопрос правильно: YES');
end.