Ответы
Ответ дал:
0
Var
a,n,i:integer;
Begin
Write('Введите число ');
Readln(n);
for i:= 1 to n do
a:=a+i;
Write('Сумма всех натуральных чисел до n (включительно) равна ',a);
End.
a,n,i:integer;
Begin
Write('Введите число ');
Readln(n);
for i:= 1 to n do
a:=a+i;
Write('Сумма всех натуральных чисел до n (включительно) равна ',a);
End.
Ответ дал:
0
программа идет, получилось все правильно
Ответ дал:
0
ну тогда ок. Я выше привёл формулу - которая упрощает код программы.
Ответ дал:
0
спасибо
Ответ дал:
0
Возьму формулу на вооружение!
Ответ дал:
0
её можно доработать для условия сумма чисел от А до B
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад