Тема
:
Помогите написать программу на Паскале
Показать сообщение отдельно
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
Посмотреть профиль
Отправить личное сообщение для desert
Найти ещё сообщения от desert
Ads
Яндекс
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация:
55070