)определите и выведите на экран количество натуральных - вопрос №16756201000 от manasaf118 07.07.2022 14:22

Question

Информатика: )определите и выведите на экран количество натуральных чисел, меньших 1000 и делящихся на 5 и 7 одновременно. составить надо программу на паскале

manasaf118 · Answer

var i,k:integer; begin k:=0; for i:=35 to 1000 do  if (i mod 5 = 0) and (i mod 7 = 0) then k:=k+1; writeln (k); end....