Друзья саша и паша живут на одной улице. как то раз они договорились порешать открытой московской олимпиады у паши, который живет в доме, находящимся на расстоянии a от начала улицы. саша некоторое время назад вышел к своему другу и на расстоянии b от начала улицы он оглянулся по сторонам и понял, что дом паши где-то рядом. теперь его скорость равна v. определите, сколько еще времени потребуется саше, чтобы дойти до дома своего друга. входные данные неотрицательные целые числа a, b, v(v≠0), значения которых не превышает 109. выходные данные выведите ответ на с точностью с 5 знаками после запятой.

Ход решения воспользуемся формулой мы знаем, что саше нужно пройти s=|a-b|. также мы знаем значение v. получаем формулу: код (pascal) var a, b, v: real; begin read(a, b, v); writeln((abs(a-b)/v): 5: 5); end.

на выходе 109

 

 

program p_1; var x,y: real; beginwriteln ('vvedite x'); readln(x); writeln ('vvedite y'); readln(y) ; if x=1 then y: =3; {на всякий случай, мало ли по клавише тне никак не можно ставить другие значения. эту строчку можно и }x: =y-x; y: =2*x; x: =2*y+x; y: =y+x/2; writeln(x,'',y); readln; end.

var

i,j,k: integer;

a,b,c: array [1..30] of integer;

begin

randomize;

j: =0;

k: =0;

for i: =1 to 30 do

begin

a[i]: =random(80)-30;

if a[i] mod 2 =0 then

begin

j: =j+1;

b[j]: =a[i]

end

end;

for i: =30 downto 1 do

if a[i]< 0 then

begin

k: =k+1;

c[k]: =a[i];

end;

for i: =1 to j do

writeln(b[i]);

for i: =1 to k do

writeln(c[i]);

end.