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

Answer 2

Конечно, вот две программы на языке Pascal, реализующие данные условия:

Программа 1:

pascalCopy code
program Program1;

var
  num1, num2, result: integer;

begin
  write('Введите первое число: ');
  readln(num1);
  write('Введите второе число: ');
  readln(num2);
  
  if num1 = num2 then
  begin
    result := num1 * num1 + num2 * num2;
    writeln('Сумма их квадратов: ', result);
  end
  else
  begin
    result := num1 * num2;
    writeln('Произведение чисел: ', result);
  end;
  
  readln;
end.

Программа 2:

pascalCopy code
program Program2;

var
  num1, num2, result: integer;

begin
  write('Введите первое число: ');
  readln(num1);
  write('Введите второе число: ');
  readln(num2);
  
  if (num1 < 0) and (num2 < 0) then
  begin
    result := num1 * num1 + num2 * num2;
    writeln('Сумма их квадратов: ', result);
  end
  else
  begin
    result := abs(num1 - num2);
    writeln('Модуль разности чисел: ', result);
  end;
  
  readln;
end.

Обе программы сначала запрашивают у пользователя два числа, а затем в зависимости от условий выполняют соответствующие вычисления и выводят результат.