самостоятельная: ( 1.даны два числа m n. большее из этих чисел уменьшить на 3, а меньшее удвоить. составьте алгоритм. 2. составьте алгоритм попадания точки в третью четверть окружности.
var m,n:real; begin writeln ('Введите 2 числа:'); readln (m,n); if m>n then begin m:=m-3; n:=n*2; writeln ('m = ',m,' n = ',n) end else begin n:=n-3; m:=m*2; writeln ('m = ',m,' n = ',n); end; end.
var m,n:real;
begin
writeln ('Введите 2 числа:');
readln (m,n);
if m>n then
begin
m:=m-3;
n:=n*2;
writeln ('m = ',m,' n = ',n)
end
else
begin
n:=n-3;
m:=m*2;
writeln ('m = ',m,' n = ',n);
end;
end.
А второе я не знаю как решить(