Напишите программу, которая подсчитает сумму натуральных чисел от 1 до n
Вот пример из задачи:
Написать пр-му, которая выводит все натуральные числа от 1 до n
Program zd;
var i,n: integer;
Begin
Writeln('Введите n');
readln(n);
for i:=i to n do
begin
writeln(i,' ');
end;
end.
Ответы
Ответ дал:
1
Program n1;
var n,sum,i: integer;
begin
readln(n);
sum:=0;
for i:=1 to n do sum:=sum+i;
write('сумма: ',sum);
end.
var n,sum,i: integer;
begin
readln(n);
sum:=0;
for i:=1 to n do sum:=sum+i;
write('сумма: ',sum);
end.
NiKaEmpty:
Зачем вы удаляете мой комментарий, если ваше решение не совпадает с моими условиями(Т.Е. ОНО НЕПРАВИЛЬНОЕ)
Вас заинтересует
5 месяцев назад
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад