ОТДЕЛ Задача+;
ПОСТ
N = 100;
ПЕР
сумма, ч: ЦЕЛ;
УКАЗ
(* Способ 1 *)
сумма := 0;
ОТ ч := 7 ДО N ПО 7 ВЫП
ЕСЛИ ч ОСТАТОК 10 = 1 ТО
УВЕЛИЧИТЬ(сумма)
КОН
КОН;
(* Способ 2 *)
сумма := 0; ч := 7;
ПОКА ч <= N ВЫП<br> ЕСЛИ ч ОСТАТОК 10 = 1 ТО
УВЕЛИЧИТЬ(сумма)
КОН;
УВЕЛИЧИТЬ(ч, 7)
КОН
КОН Задание.