Даны 2 числа, найти сумму и произведение их квадратов - вопрос №78223652 от 5Августина5 06.12.2020 23:49

Question

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

5Августина5 · 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....