ПОМОГИТЕ ПОЖАЛУЙСТА С ИКТ!!! ДАЮ 15 БАЛЛОВ. ПАСКАЛЬ.
______________________________________________
Задача: Найдите сумму всех двузначных чисел кратных 9 с помощью оператора цикла while.
Заранее огромное спасибо!!!
Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
Можно вопрос, а для чего вы написала " i:=10 ", для чего это действие?
Ответ дал:
0
написали*
Ответ дал:
0
10 - двузначное число в последовательности
Ответ дал:
0
первое
Ответ дал:
0
спасибо!
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
10 лет назад