составить алгоритм решения задачи с помощью паскаля, используя конструкцию циклического алгоритма. найдите сумму первых десяти чисел, кратных пяти

Алгоритм решения задачи.

0) Начало

1) S:=0

2) Начало цикла по i от 5 до 50

3) Если остаток от деления (i / 5) = 0 то s:=s+i;

4) Конец цикла

5) Вывод S

6) Конец

Программа на паскале реализующая данный алгоритм

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.

Алгоритм решения задачи.

0) Начало

1) S:=0

2) Начало цикла по i от 5 до 50

3) Если остаток от деления (i / 5) = 0 то s:=s+i;

4) Конец цикла

5) Вывод S

6) Конец

Программа на паскале реализующая данный алгоритм

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.