Ответы на вопрос:
program test;
var x,y: integer;
begin
read(x,y);
if (x> =-3) and (x< =2)
and (y> =-1) and (y< =1)
then write ('входит') else write ('не входит');
end.
Var a1,a2,a3,a4: real; begin readln(a1,a2,a3,a4); if (a1< > a2) and (a1< > a3) then writeln(a1); if (a2< > a1) and (a2< > a3) then writeln(a2); if (a3< > a1) and (a3< > a2) then writeln(a3); if (a4< > a3) and (a4< > a2) then writeln(a4); end.
Популярно: Информатика
-
ЛенаС12320.08.2020 04:38
-
НикитаКлючников30.08.2020 12:15
-
Fowlerok31.12.2022 02:57
-
kitsrarr28.08.2021 18:07
-
Mirskaya21.10.2020 08:05
-
svdanilova01.02.2022 23:03
-
TimurA127.07.2021 06:41
-
ROMMIT213.04.2023 05:58
-
ФархадАсланов27.12.2021 19:00
-
N23N11.10.2020 03:10