ПОМОГИТЕ ПОЖАЛУЙСТА С ИКТ!!! ДАЮ 15 БАЛЛОВ. ПАСКАЛЬ....

Question

ПОМОГИТЕ ПОЖАЛУЙСТА С ИКТ!!! ДАЮ 15 БАЛЛОВ. ПАСКАЛЬ.
______________________________________________
Задача: Найдите сумму всех двузначных чисел кратных 9 с помощью оператора цикла while.
Заранее огромное спасибо!!!

Answer 1

Var s,i: integer;
begin
s:=0;
i:=10;
while i<100 do begin<br>  if i mod 9 = 0 then s:=s+i;
  i:=i+1;
  end;
  writeln(s,' - cумма членов последовательности кратных 9 ');
end.  

Comments

Можно вопрос, а для чего вы написала " i:=10 ", для чего это действие?

---

написали*

---

10 - двузначное число в последовательности

---

первое

---

спасибо!