Предмет: Информатика,
автор: stupidasshole
написать программу которая возводит сумму трёх чисел в квадрат а, б и с
Ответы
Автор ответа:
1
program kvad;
var
a: array[1..3] of integer;
j,sum:integer;
begin
for j:= 1 to 3 do begin
read(a[j]);
sum:= sum + a[j];
end;
sum:= sqr(sum);
writeln(sum);
end.
Автор ответа:
1
var a,b,c:integer;
begin
readln(a,b,c);
write(sqr(a+b+c));
end.
Похожие вопросы
Предмет: Физика,
автор: kac1usi4
Предмет: Математика,
автор: prohmill
Предмет: Геометрия,
автор: cridic87
Предмет: Химия,
автор: FenechLana
Предмет: Физика,
автор: dashkulik