Найти сумму всех целых чисел от 1 до N. Нужен АЛГОРИТМ, а НЕ ПРОГРАММА!P.S.: алгоритм на цикл "ДО".
Найти сумму всех целых чисел от 1 до N. Нужен АЛГОРИТМ, а НЕ ПРОГРАММА!
P.S.: алгоритм на цикл "ДО".
Гость
Ответ(ы) на вопрос:
Гостьvar s,i,n:integer;
begin
readln(n);
for i:=1 to n do
s+=i;
writeln(s);
end.
Гость(199-99)*100=1000
N=4
S=1+2+3+4
Не нашли ответ?
Похожие вопросы