03.05.2010, 14:52
|
|
Познающий
Регистрация: 14.08.2009
Сообщений: 51
С нами:
8811729
Репутация:
123
|
|
Сообщение от EndLeSSDre@M
PHP код:
var i,n,summ:integer;
begin
write('vvedite N =');
readln(n);
i:=1;
summ:=0;
while i<=n do begin
summ:=summ+i;
i:=i+1;
end;
writeln('summa=',summ);
readln;
end.
Спасибо. Работает)
|
|
|