Показать сообщение отдельно
Старый 07.05.2008, 22:37   #2 (permalink)
desert
Member
 
Регистрация: 19.03.2008
Сообщений: 20
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

var
sum:longint;
i:integer;
begin
sum:=0;
for i:=25 to 125 do begin
sum:=sum+sqr(i)*i;
end;
writeln(sum);
end.
desert вне форума  
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070