Предмет: Информатика, автор: stupidasshole

написать программу которая возводит сумму трёх чисел в квадрат а, б и с

Ответы

Автор ответа: dreamSergik
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.


Автор ответа: 13nisa13
1

var a,b,c:integer;

begin

readln(a,b,c);

write(sqr(a+b+c));

end.

Похожие вопросы
Предмет: Математика, автор: prohmill
Предмет: Физика, автор: dashkulik