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

приветпрррррр20246р приветпрррррр20246р    1   20.05.2019 17:50    3

Ответы
kutina1969 kutina1969  01.10.2020 01:03

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

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.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ПОКАЗАТЬ ОТВЕТЫ
саня1362 саня1362  01.10.2020 01:03

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

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.

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика