Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.