?

Log in

No account? Create an account
Катя
20 September 2006 @ 10:08 am
Проверьте, плиз, задачку, а? "Бежит" ли она и верна ли логически. Она простая, рассчитана на совокупность математических умов филологического факультета. :) Просто дома Паскаля нет, сама убедиться не могу.

В такси одновременно сели три пассажира. Когда вышел первый пассажир, на счетчике было p1 рублей; когда вышел второй - р2 рублей. Сколько должен был заплатить каждый пассажир, если по окончании поездки счетчик показал р3 рублей? Плата за посадку составляет р0.

program _1;
var p0,p1,p2,p3,x,y,z: word;
begin
write ('Vvedite platu za posadku p0=');
readln (p0);
write ('Vvedite p1=');
readln (p1);
write ('Vvedite p2=');
readln (p2);
write ('Vvedite p3=');
readln (p3);
x:=p1+p0;
y:=p2-p1+p0;
z:=p3-p2+p0;
writeln ('pervyi passazhir zaplatil',x);
writeln ('vtoroi passazhir zaplatil',y);
writeln ('tretii passazhir zaplatil',z);
readln;
end.
 
 
Current Music: Nick Cave and The Bad Seeds - Where The Wild Roses Grow