ОТДЕЛ Задание+; ИСПОЛЬЗУЕТ Приём ИЗ "...\Отделы\Обмен\", Вывод ИЗ "...\Отделы\Обмен\";
ПЕР N, сумма, сч, скор, макс: ЦЕЛ;
УКАЗ сумма := 0; макс := 0; Вывод.Цепь("Введите число автомобилей: "); N := Приём.Число(); ЕСЛИ N < 1 И N > 30 ТО Вывод.Цепь("^Ошибка.") ИНАЧЕ Вывод.Цепь("^Введите скорости:^"); ОТ сч := 1 ДО N ВЫП скор := Приём.Число(); ЕСЛИ N < 1 И N > 300 ТО Вывод.Цепь("^Ошибка."); СТОП(0) КОН; УВЕЛИЧИТЬ(сумма, скор); ЕСЛИ скор > макс ТО макс := скор КОН; Вывод.Цепь(" ") КОН КОН; Вывод.ЧВещ("^Средняя скорость: %.1f.^", сумма / N, 0, 0, 0); ЕСЛИ макс >= 60 ТО Вывод.Цепь("YES") ИНАЧЕ Вывод.Цепь("NO") КОН
Использовать Чертежникалг Слон нач опустить перо сместиться на вектор(2, 0) сместиться на вектор(0, 2) сместиться на вектор(1, 0) сместиться на вектор(0, -2) сместиться на вектор(2, 0) сместиться на вектор(0, 2) сместиться на вектор(1, 1) сместиться на вектор(0, 2) сместиться на вектор(1, -2) сместиться на вектор(-1, 2) сместиться на вектор(-1, 1) сместиться на вектор(-3, 0) сместиться на вектор(-1, 1) сместиться на вектор(-1, 0) сместиться на вектор(-1, -2) сместиться на вектор(-1, 0) сместиться на вектор(0, 3) сместиться на вектор(-1, 0) сместиться на вектор(0, -3) сместиться на вектор(1, -1) сместиться на вектор(2, -1) сместиться на вектор(0,-3) поднять перо сместиться на вектор(1, 3) опустить перо сместиться на вектор(1, 1) сместиться на вектор(0, 2) поднять перо сместиться на вектор(-2, -1) опустить перо сместиться на вектор(-0.1, 0.1) сместиться на вектор(-0.1, -0.1) сместиться на вектор(0.1, -0.1) сместиться на вектор(0.1, 0.1) поднять перо сместиться на вектор(0, -5)кон
ИСПОЛЬЗУЕТ Приём ИЗ "...\Отделы\Обмен\", Вывод ИЗ "...\Отделы\Обмен\";
ПЕР
N, сумма, сч, скор, макс: ЦЕЛ;
УКАЗ
сумма := 0;
макс := 0;
Вывод.Цепь("Введите число автомобилей: ");
N := Приём.Число();
ЕСЛИ N < 1 И N > 30 ТО Вывод.Цепь("^Ошибка.") ИНАЧЕ
Вывод.Цепь("^Введите скорости:^");
ОТ сч := 1 ДО N ВЫП
скор := Приём.Число();
ЕСЛИ N < 1 И N > 300 ТО Вывод.Цепь("^Ошибка."); СТОП(0) КОН;
УВЕЛИЧИТЬ(сумма, скор);
ЕСЛИ скор > макс ТО макс := скор КОН;
Вывод.Цепь(" ")
КОН
КОН;
Вывод.ЧВещ("^Средняя скорость: %.1f.^", сумма / N, 0, 0, 0);
ЕСЛИ макс >= 60 ТО Вывод.Цепь("YES") ИНАЧЕ Вывод.Цепь("NO") КОН
КОН Задание.