Question

ПАСКАЛЬ!
определить и вывести на экран количество натуральных чисел, меньших 1000 делящихся на 5 и 7 одновременно

Answer 1

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.

Answer 2

k:=0 это что и почему?

Answer 3

Это счетчик количества подходящих чисел. Обнуление переменных - хорошая привычка.

Answer 4

обязательно?

Answer 5

В Паскале - нет. В дальнейшем, если будете изучать другие программные среды, например С - это будет очень важно.

Answer 6

спс