Вычислить сумму квадратов a и b в abc pascal

dima1031 dima1031    1   04.07.2019 04:20    0

Ответы
Виолетта2984 Виолетта2984  27.07.2020 23:19
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика