Ответы
Ответ дал:
0
Ответ:
Var a,sum,count:integer;
Begin
Repeat
Read(a);
If a mod 9=0 then begin
Count:=count+1;
Sum:=sum+a;
End;
Until a=0
If sum = 0 then write('no')
Else write(sum/count);
End.
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад