Question

Составить программу для нахождения суммы чисел, кратных 7, в диапазоне от 0 до 100. Вывести на экран сумму чисел. Применить цикл с условием продолжения работы.
ПОЖАЛУЙСТА ,помогите!!

Answer 1

Ответ:

Program _1;

Var

 sum, i : Integer;

Begin

 sum:=0;

 For i:=1 to 100 do If i mod 7 = 0 then sum:=sum+i;

 Writeln(sum);

end.

Объяснение:

Answer 2

Ответ:Program _1;

Var

 sum, i : Integer;

Begin

 sum:=0;

 For i:=1 to 100 do If i mod 7 = 0 then sum:=sum+i;

 Writeln(sum);

Объяснение:

Вроде правильно