17.12.2009, 23:48
|
|
Познающий
Регистрация: 15.12.2009
Сообщений: 81
Провел на форуме:
393444
Репутация:
24
|
|
TPAXTOP, вот, набросал в блокноте. Можно было бы конечно более оптимально решить задачу, но думаю тебе и так пойдет))
Код:
program name_of_program;
var i,s:integer;
begin
for i:=100 to 999 do
begin
if i mod 25=0 then
s:=s+i;
end;
writeln(s);
readln;
end.
|
|
|