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

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


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

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


uses
  PT4;

var
  a, b: real;

begin
  Task('Begin10');
  read(a, b);
  write(sqr(a) + sqr(b));
  write(sqr(a) - sqr(b));
  write(sqr(a) * sqr(b));
  write(sqr(a) / sqr(b));
end.
Поделиться:
Вам также может понравится
Перевод чисел в Python
Снегопад из снежинок на Python с помощью Черепашки
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal

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