Помогите составить программу
Вычислить сумму квадратов натуральных чисел на отрезке от 5 до 10
Вычислить сумму квадратов натуральных чисел на отрезке от 5 до 10
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
i, sum: integer;
begin
sum := 0;
i := 5;
repeat
sum := sum + i * i;
i := i + 1;
until(i > 10);
write(sum);
end.
Var a,a2,a1,b,c:integer;
Begin
a:=5;
a1:=5;
b:=11;
repeat
a2:=Sqr(a);
inc(a);
Inc(a1);
until a1=b
end.