Var
s,n,k:integer;
begin
Writeln('введите натуральные числа, 0 - окончание ввода');
k:=0; s:=0;
repeat
Read(n);
if n<>0 then
if n mod 10 = 8 then begin k:=k+1; s:=s+n end
until n=0;
if k>0 then Writeln(s/k:0:4)
else Writeln(0)
end.
<u>Пример</u>
введите натуральные числа, 0 - окончание ввода
34 17 8 32 1424 28 7 0
18.0000
Скинь мне задание, я помогу
1. V=t*D*i=55*15*5=<span>
4125 бит=</span><span><span>515,625 байт
2.</span></span>V=120*15*23*2=<span>
82800 бит/8/1024=</span><span><span>10,10742 Кбайт</span></span>