Нужно написать программу на pascal. Даны натуральное число n и вещественные числа а1, а2, а3, ..., аn. Определить сумму квадратов вещественных чисел.

Question

Информатика

Гервасий

1 сентября, 10:03

Нужно написать программу на pascal. Даны натуральное число n и вещественные числа а1, а2, а3, ..., аn. Определить сумму квадратов вещественных чисел.

+2

Ответы (1)

Знаете ответ на вопрос?

Гаврил · Answer 1

Var

i, n:integer;

s, t:real;

begin

Write ('n=') ; Readln (n) ;

s:=0;

for i:=1 to n do begin

Read (t) ;

s:=s+t*t

end;

Writeln ('Сумма квадратов равна ', s)

end.

Пример

n=5

-23.1 42.6 146 0 0.12

Сумма квадратов равна 23664.3844