Question

Даю 40 баллов!!! Напишите программу в паскале. Даны два ненулевых числа. Найти сумму, разность, произведение и частное их квадратов. входные данные: 2 1 выходные данные: 5 3 4 4

Answer 1

   var a,b:real;
begin
   readln (a,b); 
   write(sqr(a)+sqr(b) + ' '); 
   write(sqr(a)-sqr(b) + ' '); 
   write(sqr(a)*sqr(b) + ' '); 
   write(sqr(a)/sqr(b));
end.

Answer 2

Конечно, вот программа на языке Паскаль, которая выполняет указанные вычисления:

pascalCopy code
program Calculator;

var
  num1, num2: real;
  sum, difference, product, quotient: real;

begin
  write('Введите первое число: ');
  readln(num1);

  write('Введите второе число: ');
  readln(num2);

  sum := sqr(num1) + sqr(num2);
  difference := sqr(num1) - sqr(num2);
  product := sqr(num1) * sqr(num2);
  quotient := sqr(num1) / sqr(num2);

  writeln('Сумма квадратов: ', sum:0:2);
  writeln('Разность квадратов: ', difference:0:2);
  writeln('Произведение квадратов: ', product:0:2);
  writeln('Частное квадратов: ', quotient:0:2);
end.

При запуске программы она будет запрашивать ввод двух чисел. После ввода она вычислит сумму, разность, произведение и частное их квадратов и выведет результаты на экран.

Пожалуйста, убедитесь, что у вас установлена среда разработки Pascal (например, Free Pascal) для запуска данной программы.