Question

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

Answer 1

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

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.

Answer 2

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

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.