Question

1. дана точка a (x,y). определить лежит ли эта точка на оси oy. 2. даны два числа, не равные друг другу. заменить большее из них квадратом суммы, а меньшее - разностью квадратов этих чисел - самостоятельная работа по теме разветвляющиеся алгоритмы вариант 6 решите, нигде решение не могу найти

Answer 1

№1:
program oy;

var x,y:real;

begin
 write('Введите координаты точки: ');
 readln(x,y);

 if x = 0 then writeln('Точка лежит на оси Y') else
  writeln('Точка не лежит на оси Y');
end.

№2:
program men;

var a,b:real;

procedure zamena(var a,b:real);
var x,y:real;
begin 
 x:=a; 
 y:=b; 
 a:=(x+y)*(x+y); 
 b:=x*x-y*y;
end;

begin
 writeln('Введите два числа:');
 readln(a,b);

 if a>b then zamena(a,b) else 
  zamena(b,a); 

 writeln('Числа после замены:');
 writeln(a,' ',b);
end.