ПАСКАЛЬ!
определить и вывести на экран количество натуральных чисел, меньших 1000 делящихся на 5 и 7 одновременно
Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
k:=0 это что и почему?
Ответ дал:
0
Это счетчик количества подходящих чисел. Обнуление переменных - хорошая привычка.
Ответ дал:
0
обязательно?
Ответ дал:
0
В Паскале - нет. В дальнейшем, если будете изучать другие программные среды, например С - это будет очень важно.
Ответ дал:
0
спс
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад
10 лет назад