-,
- , ,
b 10, 15, 20 . b , 5-. =1,5. = 2.
. ; , . . . 90. 3 , - 5 .
.
3
m 1, b1, ..., m, bm. (i, bi) (i = l,... m) .
3.1. .
Program kurs1;
uses crt;
{ }
const m=8;
var a, b:array[1..m] of real;
r: real; i, n: integer;
begin
writeln ( r);
readln(r);
writeln ( b m ');
for i:=l to m do read (a[i], b[i]);
n:=0;
for i:=l to m do if sqr (a[i])+sqr (b[i])<=sqr(r) then n:=n+l:
clrscr;
writeln( ');
write ( a: ); for i:=l to m do write (a[i]: 6:2);
writeln;
write ( b: ); for i:=1 to m do write(b[i]: 6:2);
writeln;
writeln ( , r:5:2, ,m:2, , n:2);
end.
.
: 11.00 -2.50 4.40 6.00 7.40 5.00 3.00 2.12
b: 1.00 1.10 5.50 6.00 8.50 5.00 3.00 3.01
5.00 8 3
4
--