Advertisement
Guest User

Untitled

a guest
May 20th, 2018
106
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.43 KB | None | 0 0
  1. var
  2. f:text;
  3. kol,k:longint;
  4. min,sr,vz,de:real;
  5. c:char;
  6. begin
  7. assign(f,'input.txt');
  8. min:=-1.0;
  9. reset(f);
  10. k:=0;
  11. while not(eof(f)) do
  12. begin
  13. read(f,c);
  14. while c<>' ' do
  15. read(f,c);
  16. read(f,kol,vz,de);
  17. sr:=(vz+de)/kol;
  18. if abs(min-sr)<=0.0001 then inc(k)
  19. else k:=0;
  20. if (min=-1.0) or (((min-sr)>=0.0001) and (min<>-1.0)) then min:=sr;
  21. readln(f);
  22. end;
  23. close(f);
  24. writeln(k);
  25. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement