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

вероника290305 вероника290305    1   04.06.2019 20:10    2

Ответы
linalevchuk19 linalevchuk19  05.07.2020 16:18
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика