алгоритм решения .
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.
Поделитесь своими знаниями, ответьте на вопрос: