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<0) and (b<0)

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

 else c:= abs(a-b);

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

end.

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