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

ElizabethFilps ElizabethFilps    1   04.10.2019 17:10    3

Ответы
yankim14 yankim14  17.08.2020 08:25

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.

ПОКАЗАТЬ ОТВЕТЫ
198219821982 198219821982  17.08.2020 08:25

var a,b,c:integer;

begin

readln(a,b,c);

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

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика