Но может я ошибаюсь. Как с while сделать лучше?
Вообще автор наркоман, да. Бежать по циклу от 0 до 411, когда нужны только кратные 25-ти.
Но if не лишний. В delphi, на сколько я помню, нет такой конструкции "for(int i = 0; i < 125; i += 25)".
можно внести в фигурные скобки увеличение счетчика
"for(int i = 0; i < 125;) { i = i + 25; }".
Это delphi, там инкремент и декремент - часть записи for
for i:=0 to 200 do
for i:=0 downto 200 do
я только в школе изучала паскаль, не проще ли что-то в стиле:
от i:=1 до n {n=(максимальное число, делящеся на 25)/25}
25*i ...
Да, Вы правы :)
Только для ясности лучше задать, чтобы самому не просчитывать потолок :)
a:=max;
b:=a div 25;
for i:=0 to b do begin
current:=i*25;
....
....
end;
А вообще в жопу эту казуальщину :)
Можно и так, конечно, прога маленькая, смысла в оптимизации нет, решил просто в 1 строку засунуть и не париться.
