Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:2 курс / Численные методы / Задание 3 / Beta / Popadivkrug
.pas var y,x:real;
i,n:integer;
begin
writeln('wwedi x,y');
readln(x);
readln(y);
if y>=0 then
if y<=1 then
if y<=sqrt(1-x*x)
then writeln('popal')
else write ('ne popal')
else write ('ne popal')
else write ('ne popal')
end.
i,n:integer;
begin
writeln('wwedi x,y');
readln(x);
readln(y);
if y>=0 then
if y<=1 then
if y<=sqrt(1-x*x)
then writeln('popal')
else write ('ne popal')
else write ('ne popal')
else write ('ne popal')
end.
Соседние файлы в папке Beta