Ответы на вопрос:
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.
Популярно: Информатика
-
reopla02.05.2023 03:49
-
svesda231.05.2023 01:13
-
Lolikalkogolik25.01.2021 10:10
-
Anatoliy111111114.04.2020 16:09
-
vladssos0416.08.2020 15:15
-
незринхорошист210.10.2020 04:20
-
Ozoda520.06.2021 23:31
-
anyanaffanya27.06.2021 21:01
-
inkara807.03.2023 20:47
-
Nikityha201214.09.2020 16:59