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