Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Исследование структур ветвления1 / L2
.PAS {Їа®Ја ¬¬ а бзсв ЇаЁ ¤«Ґ¦Ёв «Ё ўўҐ¤с п в®зЄ ®ЎҐЁ¬ ЄагЈ ¬}
uses crt;
var
x,y:real;
Begin;
clrscr;
writeln('ўўҐ¤ЁвҐ x Ё y');
readln(x,y);
if (sqr(x-6)+sqr(y-2)<=4) and (sqr(x-4)+sqr(y-4)<=16) then writeln('¤ ') else writeln('Ґв');
readkey;
End.
uses crt;
var
x,y:real;
Begin;
clrscr;
writeln('ўўҐ¤ЁвҐ x Ё y');
readln(x,y);
if (sqr(x-6)+sqr(y-2)<=4) and (sqr(x-4)+sqr(y-4)<=16) then writeln('¤ ') else writeln('Ґв');
readkey;
End.