Составить алгоритм для вычисления суммы чисел от 1 до n
Составить алгоритм для вычисления суммы чисел от 1 до n
Гость
Ответ(ы) на вопрос:
ГостьProgram n1;
var S,i,n: integer;
begin
i:=1;
S:=0;
writeln('введите n: ');
readln(n);
while (i<=n) do
begin
S:=S+i;
i:=i+1;
end;
writeln('сумма: ',S);
end.
Не нашли ответ?
Похожие вопросы