Предмет: Информатика,
автор: Vladimir1905
ПАСКАЛЬ!
определить и вывести на экран количество натуральных чисел, меньших 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
спс
Похожие вопросы
Предмет: Математика,
автор: alex29b2008
Предмет: Музыка,
автор: kimdonyoung1998
Предмет: Алгебра,
автор: smsksjsj
Предмет: География,
автор: katyalebedevl