Вычислить сумму квадратов a и b в abc pascal
Вычислить сумму квадратов a и b в abc pascal
Гость
Ответ(ы) на вопрос:
ГостьProgram Summa;
var k,f,a,b,S: integer;
Begin
Readln(a,b);
k:=a*a;
f:=b*b
S:=k+f;
Writeln(S);
end.
Не нашли ответ?
Похожие вопросы