17.12.2009, 21:33
|
|
Banned
Регистрация: 12.06.2009
Сообщений: 8
Провел на форуме:
26426
Репутация:
1
|
|
Код:
var
i:integer;
k:integer;
begin
k:=0;
for i:=100 to 999 do
if i mod 25 = 0 then
k:=k+i;
writeln (k);
end.
Можно и так, без массива, в принципе так меньше кода) Одно и тоже, ток без массива
А вот первый код явно не верный, запусти его и тот что ты последний написал, тот что как у меня, но без массива и вот результаты будут 100% разные..
//хотя наверно я ошибаюсь, потому что в уме начал считать и получается верно) Я сразу и не понял, твоего алгоритма 
Последний раз редактировалось Vish; 17.12.2009 в 21:36..
|
|
|