Ответы на вопрос:
1. нет, да 2. program p2; var a: integer. begin write('введите целое число: '); readln(a); if(a> -14.5) and (a< =18)then write(' да') else write(' нет'); end.3. program p3; var a,b: integer. begin write('введите числа: '); readln(a,b); if(a< > 0) or (b< > 0)then write(' есть число, не равное нулю') else write('нет чисел, равных 0 '); end. 4. program p4; var a,b,c: integer. begin write('введите числа: '); readln(a,b,c); if(a mod 2< > 0) and (b mod 2< > 0) and (c mod 2< > 0)then write(a*b*c); end.
Популярно: Информатика
-
Denchik1507022.02.2021 16:38
-
MrBonnie08.04.2021 09:15
-
Пан200702.12.2020 05:05
-
Unikorn11107.12.2022 19:19
-
lerkaaaaaaaaa25.05.2023 01:13
-
gumarin7805.07.2020 19:33
-
nik86306.12.2020 16:04
-
danyabro106.05.2021 00:30
-
borshliba06.01.2022 01:00
-
eeeeroock03.03.2023 11:28