Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- f:text;
- kol,k:longint;
- min,sr,vz,de:real;
- c:char;
- begin
- assign(f,'input.txt');
- min:=-1.0;
- reset(f);
- k:=0;
- while not(eof(f)) do
- begin
- read(f,c);
- while c<>' ' do
- read(f,c);
- read(f,kol,vz,de);
- sr:=(vz+de)/kol;
- if abs(min-sr)<=0.0001 then inc(k)
- else k:=0;
- if (min=-1.0) or (((min-sr)>=0.0001) and (min<>-1.0)) then min:=sr;
- readln(f);
- end;
- close(f);
- writeln(k);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement