Алгоритм решения задачи.
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.
Алгоритм решения задачи.
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.