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

ПОМОГИТЕ ПОЖАЛУЙСТА С ИКТ!!! ДАЮ 15 БАЛЛОВ. ПАСКАЛЬ. ______________________________________________ Задача: Найдите сумму всех двузначных чисел кратных 9 с помощью оператора цикла while. Заранее огромное спасибо!!!
Гость
Ответ(ы) на вопрос:
Гость
var s,i: integer; begin s:=0; i:=10; while i<100 do begin   if i mod 9 = 0 then s:=s+i;   i:=i+1;   end;   writeln(s,' - cумма членов последовательности кратных 9 '); end.  
Не нашли ответ?
Ответить на вопрос
Похожие вопросы