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