Составить программу для нахождения суммы чисел, кратных 7, в диапазоне от 0 до 100....

+188 голосов
184k просмотров

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


Информатика (56 баллов) | 184k просмотров
Дано ответов: 2
+94 голосов

Ответ:

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.

Объяснение:

(292 баллов)
+58 голосов

Ответ: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);

Объяснение:

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

(55 баллов)