Var R,x,y : real; k,i: integer;
begin
write('R='); readln(R);
k:=0;
for i:=1 to 3 do
begin
write('x = '); readln(x);
write('y = '); readln(y);
if sqrt(x*x+y*y)<=R then k:=k+1;
end;
writeln('В круг попали ',k,' точек');
<span>end.</span>
Ну вы хотябы Сделайте фотографию чтобы посмотреть что там)
50/x-50/x+40=4
50x+2000-50x/x(x+40)=4
2000=4x^2+160x
-4x^2-160x+2000=0
x^2+40-500=0
x1=-50
x2=10
ответ 10 км/ч
МОРЕ-ГОРЕ-ГОРА-КОРА-КОМА-КУМА-СУМА-СУША
Программа выводит сами числа и их квадраты
Program Square5;
Uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 5 do
writeln(i,' ',i*i );
readkey;
end.