1)вывести все натуральные числа от 100 до 200 кратные 5 2) подсчитать общее кол-во делителей числа 100
1 var i:integer; begin for i:=100 to 200 do if i mod 5=0 then write(i,' ') end. 2 var i,n:integer; begin for i:=1 to 100 do if 100 mod i=0 then n:=n+1; write('Общее количество делителей 100, включая 1 и само число: ',n) end. Если 1 и само число 100 не учитывать, то третья строка сверху должна иметь вид: for i:=2 to 99 do
спасииибооо))
Конечно, их не будет. Но это уже мы сами решаем, помогая машине. А ей помощь наша не обязательна, решать она прекрасно сама умеет. Если будем сами рассуждать, то вполне можем найти все, что нужно, и без ее помощи)))))
Можно и так сказать)) Но тогда, для экономии маш.ресурсов надо вообще сначала применить правила деления. Ну а если разложить 100 на множители, то вообще машине ничего считать не придется, какая экономия будет))))) 100=2*2*5*5. Число различных комбинаций легко считается в уме: 7
Все зависит от задачи, глупо экономить доли микросекунд (сколько операций в секунду процессор делает?!), Как говорил Козьма Прутков: не доводи ничего до крайности)))
Именно, об этом и речь, все зависит от конкретного задания. Сначала учимся вообще создавать алгоритмы, а потом будем учиться создавать оптимальный. Хотя, неплохо и совмещать это сразу)) Но это уже труднее.