Program maxmin;
var x, y, z: integer;
max, min: integer;
begin
readln(x, y, z);
max:=x+y+z;
if x*y+z>max then max:=x*y+z;
if sqr(x)+sqr(y)-z > max then max:=sqr(x)+sqr(y)-z;
writeln(max);
min:=<span>x+y+1;
</span>if x*y*z<min then min:=x+y+1;
write(min+1);
end.
1 - 1)
2 - 4)
3 - Нужно чтобы число было в цикле от большего к меньшему. Так что подходит 1) и 4).
Алг
нач
цел N = 5
цел i, index
вещ minimum
вещтаб mas[1:N]
вывод "Введите 1 элемент: "
ввод mas[1];
mas[1] := mas[1] * 2
minimum := mas[1]
index := 1;
нц для i от 2 до N
вывод "Введите ", i, " элемент: "
ввод mas[i]
mas[i] := mas[i] * 2;
если mas[i] < minimum то
minimum := mas[i]
index := i;
всё
кц
вывод нс, "Обработнный массив:", нс, нс
нц для i от 1 до N
вывод "Элемент ", i, " = ", mas[i], нс
кц
вывод нс, "Минимальный элемент: A[", index, "] = ", minimum
кон
А1(2) Назовите свойства объекта операционной системы Windows «Рабочий стол»
1. Фон;
А2(2) Найдите общие имена объектов:
А. Компьютер, Б. Астрахань, В. Стол, Г. Елена
2. АВ;
А3(2) Укажите отношение для пары «струйный принтер и принтер»:
3. является разновидностью;
А4(2) Укажите подсистемы, входящие в систему «Программное обеспечение персонального компьютера»:
А. устройства ввода информации, Б. устройства хранения информации,
В. операционная система, Г. прикладные программы
3. ВГ;
А5(2) Закончите предложение: «Моделью называют объект, имеющий…»
3. существенные признаки объекта-оригинала;
А6(2) Определите неформального исполнителя в задаче: «Горничная каждое утро, убирая свой этаж, пылесосит ковровую дорожку».
1. Горничная;
А7(2) Какой из объектов представляет собой информационную модель деятельности школы
4. Устав школы.
А8(2) Используя график, назовите самые дождливые дни.
нет графика
А9(2) Отметьте пропущенное слово: «Формула для вычисления площади прямоугольника является примером … модели»
2. знаковой
//PascalABC.NET 3.1 сборка 1200
begin
var d := ReadReal('d =');
var s := SeqGen(
ReadInteger('n ='),
ReadReal('a1 ='),
a -> a + d)
.Aggregate((s, x)-> s + x);
writeln(s);
end.