|
uses crt ;
var b, S, x : integer;
begin
S:= 0;
b:= 0;
for x:=1 to 7 do begin
b:=b+3;
S:=S+b;
end.
writeln(S);
end.
Добавлено через 25 секунд
проверить возможности нет, пишу прям в окне поста рфч :о
Последний раз редактировалось Jlo6aH; 26.01.2011 в 17:32.
Причина: Добавлено сообщение
Оффтоп
мастурбирую на спасибки
если я кого-то кину - я не виноват
mmm-kurganec - МОЙ СКАЙП
mmm-kurqanec - НЕ МОЙ СКАЙП. ЭТО МОШЕННИК.
SS
Триан ШИСЯТВОСЬМОЙ МАГ Лобан ушел париться в баню
Интерферирую на Асу
Дифрагирую на триане
|