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

164

205

Посмотреть ответы 2

Ответы на вопрос:

Galinachlen

Информатика

4,5(17 оценок)

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.