Найдите сумму натуральных чисел от 1 до m. Используя цикл с предусловием

Question

Найдите сумму натуральных чисел от 1 до m. Используя цикл с предусловием

Answer 1

Program p1;
var sum,i,m:integer;
begin
writeln('Введите m: ');
readln(m);
sum:=0;
while ibegin
i:=i+1;
sum:=sum+i;
end;
writeln('Сумма натуральных чисел =',sum);
end.

Comments

пробуйте

---

Язык программирования QBasic,сделать в тетради письменно!

---

круто =) ок перепишу на бейсик =)

---

PRINT "Введите m: "
INPUT m
i=0
DO WHILE ii=i+1
sum=sum+i
LOOP
PRINT "Сумма натуральных чисел = "
PRINT sum

---

Спасибо большое)Очень помогли