Добавил:
Hist
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Паскаль (I семестр) / K01-172 / 01 / gr2
.pas program gr_two;
var
X,Y:real;
out_small,in_large:boolean;
begin
write('‚ўҐ¤ЁвҐ Є®®а¤Ё вг X § ¤ ®© в®зЄЁ: ');
readln(X);
write('‚ўҐ¤ЁвҐ Є®®а¤Ё вг Y § ¤ ®© в®зЄЁ: ');
readln(Y);
in_large:=(X>=-4) and (X<=2) and (Y>=0) and (Y<=3);
out_small:= (abs(X)<1) and (Y<1);
writeln( in_large and not out_small );
readln;
end.
var
X,Y:real;
out_small,in_large:boolean;
begin
write('‚ўҐ¤ЁвҐ Є®®а¤Ё вг X § ¤ ®© в®зЄЁ: ');
readln(X);
write('‚ўҐ¤ЁвҐ Є®®а¤Ё вг Y § ¤ ®© в®зЄЁ: ');
readln(Y);
in_large:=(X>=-4) and (X<=2) and (Y>=0) and (Y<=3);
out_small:= (abs(X)<1) and (Y<1);
writeln( in_large and not out_small );
readln;
end.