Помогите составить программу Вычислить сумму квадратов натуральных чисел на отр...

June 2022 1 12 Report

Помогите составить программу
Вычислить сумму квадратов натуральных чисел на отрезке от 5 до 10

Answers & Comments

contrlc Var
i, sum: integer;

begin
sum := 0;
i := 5;
repeat
sum := sum + i * i;
i := i + 1;
until(i > 10);
write(sum);
end.

1 votes Thanks 1

egor222777 Не ужели так надо было...А я корячился там.В любом случае и вам спасибо, ща данное решение.

egor222777 Если вам на данный момент не трудно, можете пожалуйста объяснить одну строчку?

contrlc until(i > 10); эту ?

egor222777 Нет, ее я понимаю.Меня интересует "Sum", оно же стоит в "repeat" оно же должно все время изменяться.Я просто не понял "sum := sum + i * i;"

contrlc Оно и изменяется: к сумме прибавляется i в квадрате на каждой итерации цикла.

egor222777 Спасибо, теперь понял.Это не то что я хотел составить.

egor222777 Program Test;
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.

egor222777 Одним словом," куча мала".Ладно, ще раз благодарю за объяснения.Доброй ночи

Составить программу Вычислить сумму квадратов натуральных чисел на отрезке от 5 ...

Answer

wely12130001 June 2022 | 0 Ответы

Составить программу Вычислить сумму квадратов натуральных чисел на отрезке от 5...

Answer

Answers & Comments

Составить программу Вычислить сумму квадратов натуральных чисел на отрезке от 5 ...

Составить программу Вычислить сумму квадратов натуральных чисел на отрезке от 5...

рекомендуемые вопросы

Helpful Links

Helpful Social