ПАСКАЛЬ! определить и вывести на экран количество натуральных чисел, меньших 1000 делящихся на 5 и 7 одновременно
Var i,k:integer; begin k:=0; for i:=1 to 1000 do if ((i mod 5 = 0) and ((i mod 7 = 0)) then k:=k+1; writeln("Количество натуральных чисел до 1000, которые делятся на 5 и 7 без остатка: ",k); end.
k:=0 это что и почему?
Это счетчик количества подходящих чисел. Обнуление переменных - хорошая привычка.
обязательно?
В Паскале - нет. В дальнейшем, если будете изучать другие программные среды, например С - это будет очень важно.
спс