Rimikal
5 год назад
Пожалуйста Пожалуйста посчитайте срочноЧто дает эта програмаProgram pr1;Var c,k:integer;BeginK:=0;For c:=1 to 99 doIf c mod 7=0 then k:=k+1;write on ('k=',k)End.
ОТВЕТЫ
Олег
Oct 24, 2020
Возвращает количество элементов, которые нацело делятся на 7 с интервала [1;99]
241
