Добавил:
Eatmore
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:написанные программы / лаба №2 с отчетом все варианты. / lab2 (18) / LAB2(18)
.PAS program v18;
var x,y,r:real;
begin
writeln('vvedite x,y,r');
readln(x,y,r);
if (r<=0) then writeln('ne imeet smisla')
else
if ((sqr(r)>=sqr(x+r)+sqr(y+r))and(y>=x))or
((sqr(r)>=sqr(x-r)+sqr(y-r))and(y<=x))
then writeln('da')
else writeln('net');
readln;
end.
var x,y,r:real;
begin
writeln('vvedite x,y,r');
readln(x,y,r);
if (r<=0) then writeln('ne imeet smisla')
else
if ((sqr(r)>=sqr(x+r)+sqr(y+r))and(y>=x))or
((sqr(r)>=sqr(x-r)+sqr(y-r))and(y<=x))
then writeln('da')
else writeln('net');
readln;
end.
Соседние файлы в папке lab2 (18)