Блог учителя Информатики

Решение задачи Begin11


Условие задачи:

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


uses
  PT4;

var
  a, b: real;

begin
  Task('Begin11');
  read(a, b);
  write(abs(a) + abs(b));
  write(abs(a) - abs(b));
  write(abs(a) * abs(b));
  write(abs(a) / abs(b));
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

Оставьте комментарий