Question

Тут короче *язык программирования PASKAL*нужно решить задачу1) Даны два не нулевых числа.Найти сумму разность произведение и частное их квадратов.Помогите пожалуйста

Answer 1

Var  a, b: real;
begin 
Writeln('Введите a и b'); 
Readln(a, b);  if (a = 0) or (b = 0) then
Writeln('Ошибка! Введите числа не равные нулю.') 
else  
Writeln('Сумма квадратов: ', sqr(a) + sqr(b), '.', ' Разность квадратов: ', sqr(a) - sqr(b), '.', ' Произведение квадратов: ', sqr(a) * sqr(b), '.', ' Часное квадратов: ', sqr(a) / sqr(b), '.');
end.