найти квадрат суммы и сумму квадратов 2-х целых чисел,вводимых с клавиатуры.Черезе паскаль
Ответы на вопрос
Ответил GAHrad
0
program summa;
var a, b ,SS,S: integer;
begin
WRITELN ( ' Введите два целых числа' );
READLN(a, b);
S:= sqr (a+b);
SS := a*a + b*b;
WRITELN ('сумма квадратов чисел равна ', SS);
WRITELN ('Квадрат суммы чисел равен ', S);
END.
var a, b ,SS,S: integer;
begin
WRITELN ( ' Введите два целых числа' );
READLN(a, b);
S:= sqr (a+b);
SS := a*a + b*b;
WRITELN ('сумма квадратов чисел равна ', SS);
WRITELN ('Квадрат суммы чисел равен ', S);
END.
Новые вопросы