Задача 8
Напишите НАИМЕНЬШЕЕ число х, для которого ИСТИННО высказывание:
НЕ(x =50) ИЛИ НЕ(x >= 20)
Задача 11
Напишите НАИБОЛЬШЕЕ число х, для которого ЛОЖНО высказывание:
НЕ(x =20) ИЛИ НЕ(x >= 10)
Задача 13*
Напишите НАИМЕНЬШЕЕ число х, для которого ИСТИННО высказывание:
(x>14) И (x кратно 3) И (x кратно 2)
Задача 14*
Напишите НАИБОЛЬШЕЕ число х, для которого ИСТИННО высказывание:
(x 8) ИЛИ (x < 3)) И (
121
351
Ответы на вопрос:
Var a,b,c: real; begin write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); if a> b then begin if a> c then a: =a/3 else c: =c/3; if b< c then b: =b*3 else c: =c*3 end else begin if b> c then b: =b/3 else c: =c/3; if a< c then a: =a*3 else c: =c*3 end; writeln; writeln('a = ',a); writeln('b = ',b); writeln('c = ',c); end.
Популярно: Информатика
-
янакуницкая201725.12.2022 00:15
-
mlgcuca02.06.2020 11:45
-
ifreemadozzlqu14.06.2022 05:06
-
19729ром05.03.2020 02:37
-
adele97864531209.03.2021 09:51
-
Katerina932224.06.2022 09:01
-
Anneli112.03.2023 01:05
-
anognev17.04.2021 21:52
-
katyakhmel20020.11.2020 02:51
-
elizka07040809.06.2021 09:19