Квадраты и модули чисел

На этой странице дано решение примеров Begin10 - Begin11 из задачника Абрамяна.

Begin10. Даны два ненулевых числа. Найти сумму, разность, произведение и частное их квадратов.

После ввода a и b вычисляем их квадраты, причем, записанные в сами переменные a, b. Потом по очереди выводим искомые величины.

var
  a, b: real;

begin
  write('Введите два ненулевых числа: ');
  readln(a, b);
  a := sqr(a); { <-- Вычисляем квадрат числа a }
  b := sqr(b); { <-- Вычисляем квадрат числа b }
  writeln('Результат:');
  writeln('Сумма квадратов: ', a + b);
  writeln('Разность квадратов: ', a - b);
  writeln('Произведение квадратов: ', a * b);
  writeln('Частное квадратов: ', a / b);
  readln
end.

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸

Begin11. Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей.

Вводим переменные a и b, находим их модули и выводим результат.

var
  a, b: real;

begin
  write('Введите два ненулевых числа: ');
  readln(a, b);
  a := abs(a); { <-- Вычисляем модуль числа a }
  b := abs(b); { <-- Вычисляем модуль числа b }
  writeln('Результат:');
  writeln('Сумма модулей: ', a + b);
  writeln('Разность модулей: ', a - b);
  writeln('Произведение модулей: ', a * b);
  writeln('Частное модулей: ', a / b);
  readln
end.

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸

**type** real;: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10³⁰⁸ .. 1.8∙10³⁰⁸