1. Дана точка A (x, y). Определить лежит ли эта точка на оси Oy.

2. Даны два числа, не равные друг другу. Заменить большее из них квадратом суммы, а меньшее - разностью квадратов этих чисел

-

Самостоятельная работа по теме Разветвляющиеся алгоритмы Вариант 6

Решите, нигде решение не могу найти

№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.