Напишите программы ** паскаль. 1) даны два числа. если они равны, то найдите сумму их...

Question

Напишите программы на паскаль. 1) даны два числа. если они равны, то найдите сумму их квадратов, иначе - вычислить их произведение. 2) даны два числа. если они оба отрицательны, то найти сумму их квадратов, иначе - вычислить модуль их разности.

Answer 1

1.

program raf105;

var a,b,c:real;

begin

write('Введите 2 числа: ');

readln(a,b);

if a=b

 then c:= a**2+b**2

 else c:= a*b;

writeln('Вывод: ',c);

end.

2.

program raf105;

var a,b,c:real;

begin

write('Введите 2 числа: ');

readln(a,b);

if (a

 then c:= a**2+b**2

 else c:= abs(a-b);

writeln('Вывод: ',c);

end.

Язык программирования PascalABC