vladmor
Задание №8 var x,y,r: real; begin write('Введите X:');readln(x); write('Введите Y:');readln(y); write('Введите R:');readln(r); if sqr(x)+sqr(y)<= sqr(r) then writeln('1') else writeln('0'); end.
Задание №9 var a,b: real; begin write('Введите a:');readln(a); write('Введите b:');readln(b); if a<>0 then writeln('x = ',-b/a) else writeln('решения нет'); end.
Answers & Comments
var
x,y,r: real;
begin
write('Введите X:');readln(x);
write('Введите Y:');readln(y);
write('Введите R:');readln(r);
if sqr(x)+sqr(y)<= sqr(r) then writeln('1')
else writeln('0');
end.
Задание №9
var
a,b: real;
begin
write('Введите a:');readln(a);
write('Введите b:');readln(b);
if a<>0 then writeln('x = ',-b/a)
else writeln('решения нет');
end.