Написать программу нахождения суммы всех положительных целых чисел, не превышающих данного натурального числа N, используя цикл с параметром.
Ответы
Ответ дал:
0
var
sum, i, n:integer;
begin
read(n);
for i:= 1 to n do
sum:= sum + i;
Writeln(sum);
end.
sum, i, n:integer;
begin
read(n);
for i:= 1 to n do
sum:= sum + i;
Writeln(sum);
end.
Ответ дал:
0
Спасибо
Вас заинтересует
1 год назад
1 год назад
2 года назад
8 лет назад
8 лет назад