Даны 2 числа, найти сумму и произведение их квадратов - вопрос №27822590 от vanab322 04.10.2020 15:52

Question

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

vanab322 · 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....