Найти путь, пройденный автомобилем за заданное время. средней скорости и время движения с клавиатуры.

Program skorost; uses crt; var v,t,s: integer; begin clrscr; writeln('введите скорость v'); readln(v); writeln('введите время t '); readln(t); writeln('найдем пройденный путь автомобиля s'); s: =v*t; writeln('otvet'); writeln(s); end.

Пусть a, b, c − число пассажиров каждой из маршруток. тогда, нужно во-первых: выяснить можно ли поделить пассажиров поровну между тремя маршрутками; во-вторых: если первое утверждение верно, то k : = (a + b + c) div 3; − число пассажиров, которое должно приходиться на 1 маршрутку sum : = 0; − счётчик пересаживаемых пассажиров da : = a - k; if da > 0 then sum : = sum + da; db : = b - k; if db > 0 then sum : = sum + db; dc : = c - k; if dc > 0 then sum : = sum + dc; − если разница числа пассажиров и количества, которое должно быть в маршрутке, число положительное, значит столько пассажиров из данной маршрутки необходимо пересадить. что то типа дальше сама

Не знаю чего именно там хотели, но так программа работает и при 50 var       a, b, y, z: integer; begin       writeln('1-да, 0-нет');       a : = 1;       b : = 100;             while b - a > 0 do       begin               z : = (a + b) div 2;               writeln(' число больше ', z);               readln(y);               if y = 1 then                       a : = z + 1               else                       b : = z;       end;             writeln('ваше число ', a); end.