Question

1)вывести все натуральные числа от 100 до 200 кратные 5
2) подсчитать общее кол-во делителей числа 100

Answer 1

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

Answer 2

Можно и так сказать)) Но тогда, для экономии маш.ресурсов надо вообще сначала применить правила деления. Ну а если разложить 100 на множители, то вообще машине ничего считать не придется, какая экономия будет))))) 100=2*2*5*5. Число различных комбинаций легко считается в уме: 7

Answer 3

Все зависит от задачи, глупо экономить доли микросекунд (сколько операций в секунду процессор делает?!), Как говорил Козьма Прутков: не доводи ничего до крайности)))

Answer 4

В данном случае согласен. Но если бы эта операция выполняла не школьное задание, а, допустим, шифрование файла, то снижение скорости в два раза мы бы имели чисто из-за этой мелочи. На файлах порядка нескольких ГБ это очень ощутимо. При передаче трафика тоже.