Найти сумму всех целых чисел от 1 до N. Нужен АЛГОРИТМ, а НЕ ПРОГРАММА!

P.S.: алгоритм на цикл "ДО".

2

Ответы и объяснения

2014-03-04T17:47:31+04:00
Var s,i,n:integer;
begin
readln(n);
for i:=1 to n do
s+=i;
writeln(s);
end.
Алгоритм: считываем n, <i=n>-нет s+=i, -да вывод s
еще где "нет" i+=1
Спасибо) Пойду,попробую составить.
2014-03-04T17:48:29+04:00