Найти сумму первых десяти чисел, кратных пяти. Составить алгоритм

Question

Найти сумму первых десяти чисел, кратных пяти.
Составить алгоритм

Comments

Блок-схему или программу?

---

надо составить алгоритм сам цикл и блок схему

---

Var S,i,j:integer;BeginS:=0;i:=0;j:=0;Repeati:=i+1;if i mod 5 = 0 thenBeginS:=S+i;j:=j+1;End;Until j=5;WriteLn(S)End.

---

Блок-схему сама нарисуешь?

Answer 1

Алгоритм решения задачи.0) Начало1) S:=02) Начало цикла по i от 5 до 503) Если остаток от деления (i /5)=0 то s:=s+i;  4) Конец цикла5) Вывод S6) Конец  Программа на паскале реализующая данный алгоритмProgram Summa;var s,i:integer;begin    s:=0;    for i:=5 to 50 do        if (i mod 5)=0 then s:=s+i;         writeln('Сумма первых 10 чисел которые кратны 5=',s);end.