Предмет: Информатика,
автор: Black987
Вычислить сумму квадратов a и b в abc pascal
Ответы
Автор ответа:
0
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.
var k,f,a,b,S: integer;
Begin
Readln(a,b);
k:=a*a;
f:=b*b
S:=k+f;
Writeln(S);
end.
Автор ответа:
0
f : = b * b ;
Похожие вопросы
Предмет: История,
автор: Anna18301
Предмет: Русский язык,
автор: Аноним
Предмет: Математика,
автор: osenev17
Предмет: История,
автор: Аноним
Предмет: История,
автор: maryam23