03.05.2010, 14:41
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами:
8850305
Репутация:
259
|
|
Сообщение от BELbIY
Составьте на языке Паскаль программу вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N.
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.
Последний раз редактировалось EndLeSSDre@M; 03.05.2010 в 14:44..
|
|
|