Ответы
Ответ дал:
1
program sapch;
uses
crt;
var
k, s, c: integer;
var
sr: real;
begin
s := 0;
c := 0;
k := 1;
while k <> 0 do
begin
readln(k);
if ((k div 100) > 0) and ((k div 100) < 10) then
begin
s := s + k;
c := c + 1
end ;
end;
writeln;
if c = 0 then
writeln('net')
else
begin
sr := s / c;
writeln(sr: 0: 1);
end;
readln;
end.
taipovakarena:
это для 9 класса подойдёт ?
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
8 лет назад