Найдите сумму квадратов и квадрат суммы первых 10 натуральных чисел. Задача по информатике (нужна программа)

Question

Информатика

Витушка

3 мая, 13:37

Найдите сумму квадратов и квадрат суммы первых 10 натуральных чисел. Задача по информатике (нужна программа)

+4

Ответы (1)

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

Павлуха · Answer 1

Var i, sumkv, kvsum: integer;

begin

for i:=1 to 10 do

begin

sumkv:=sumkv+sqr (i) ;

kvsum:=kvsum+i;

end;

kvsum:=sqr (kvsum) ;

writeln ('Сумма квадратов равна ', sumkv) ;

writeln ('Квадрат суммы равен ', kvsum) ;

end.