1.Запишите оператор присваивания переменной х значения из диапазона 15 – 105
2.Составьте условный оператор для задачи: если переменная х равна 1, то увеличьте её значение на 3, иначе увеличьте значение переменной х в 2 раза
3.Запишите условный оператор для определения наибольшего из переменных к, m.
212
451
Ответы на вопрос:
Код ниже
Объяснение:
1. x := Random(91) + 15;
2. if x = 1 then
x := x + 3
else x := x*2
3. if k >= m then
max := k
else max := m
Var a: array [1..10] of integer; i, p : integer; begin for i : = 1 to 10 do begin write('a[', i, '] = '); readln(a[i]); end; for i : = 1 to 10 do if a[i] mod 2 = 0 then p : = p * a[i]; writeln(p); end.
Популярно: Информатика
-
mashka041415.12.2022 11:48
-
ольга222406.06.2021 01:53
-
НекоТян12425.10.2020 23:30
-
ambasaddor07.02.2022 17:23
-
незнайка290113.05.2023 23:17
-
Nika785411.07.2020 00:49
-
БЕЙТУЛЛА04.12.2022 20:20
-
Арабика103.10.2020 22:13
-
koroleva185826.09.2022 19:00
-
DARINASTAR9804.08.2022 21:27