Сергей Алексеевич Баруздин
Пчелиная напасть
Жил я в детстве в деревне. Всем был доволен: и рекой, и лесом, и
полной свободой.
Но у хозяина дома, где мы жили, было несколько ульев с пчелами. Пчелы - миролюбивые существа, если их не обижать. И верно: наши пчелы никого не трогали.
Никого, кроме меня. Стоило мне выйти из избы, как какая-нибудь пчела обязательно меня укусит. А бывали дни, когда меня жалили и по нескольку раз.
- Балуешься много, - говорила мать, - вот они и кусают.
- Не балуюсь, - оправдывался я. - Совсем их не трогаю.
Время шло, но не было дня, чтобы я избежал этой пчелиной напасти.
Хотел я спросить нашего хозяина, почему пчелы меня не любят, но побоялся. А вышло так, что я все равно не избежал разговора с хозяином.
Кбайт (надеюсь обьяснять как переводить из бит в байты Кбайты и т.д. не надо?)
бит в секунду
секунд
Кбайт
n,s,x:integer;
f,g:file of integer;
begin
assign(f,'d:\f.txt');
reset(f);
while not eof(f) do
begin
read(f,n);
x:=Trunc(sqrt(n));
if (x*x=n) and (x mod 2=1) then s:=s+1;
end;
assign(g,'d:\g.txt');
rewrite(g);
write(g,s);
reset(f);
while not eof(f) do
begin
read(f,n);
write(g,n);
end;
close(f);
close(g);
end.