Составьте программу для вычисления суммы натуральных чисел от 20 до 99.Решите задачку в...

Question

Составьте программу для вычисления суммы натуральных чисел от 20 до 99.Решите задачку в двух вариантах-с использованием операторов while и repeat.
СРОЧНО ПОЖАЛУЙСТА ПОМОГИТЕ

Comments

На Паскале?

---

Да

---

Сейчас сделаю

---

Хорошо)))

---

Все, готово. Проверяй.

---

У тебя, случаем, не старый Паскаль (типа Турбо-Паскаля)? А то я переменную s вначале не обнулял. В старых версиях это может ошибку вызвать.

---

Для старых версий после строки i:=20; надо будет вставить s:=0;

Answer 1

Var i,s:integer;
begin
i:=20;
while i<100 do<br>  begin
  s:=s+i;
  i:=i+1
  end;
writeln('Ответ: ',s)  
end.

var i,s:integer;
begin
i:=20;
repeat
   s:=s+i;
   i:=i+1;
   until i>99; 
writeln('Ответ: ',s)  
end.