Даны 2 числа, найти сумму и произведение их квадратов - вопрос №78232672 от nomar 04.11.2020 22:18

Question

Информатика: Даны 2 числа, найти сумму и произведение их квадратов

nomar · Answer

Program z7;  Var a,b,sum,pro:integer;Begin  write( Введите 1-ое число - ); readln(a);  write( Введите 2-ое число - ); readln(b);  sum:= a*a + b*b;  pro:= a*a * b*b;    write( Сумма квадратов  - , sum);  write( Произведение квадратов  - , pro);  End....