1. пешеход шел по пересеченной местности. его скорость движения по равнине v1 км/ч, в гору — v2 км/ч и под гору — v3 км/ч. время движения соответственно t1, t2 и t3 ч. написать программу определяющую, какой путь прошел пешеход? 2. написать программу, вычисляющую путь, пройденный лодкой, если ее скорость в стоячей воде v км/ч, скорость течения реки v1 км/ч, время движения по озеру t1 ч, а против течения реки – t2 ч.

program program1; vars,v1,v2,v3,t1,t2,t3: real; beginwrite('введите скорость движения по равнине: '); readln(v1); write('введите скорость движения в гору: '); readln(v2); write('введите скорость движения под гору: '); readln(v3); write('введите время движения по равнине: '); readln(t1); write('введите время движения в гору: '); readln(t2); write('введите время движения под гору: '); readln(t3); s: =t1*v1+t2*v2+t3*v3; writeln('путь = ',s); end.

 

 

program program2; vars,v,v1,t1,t2: real; beginwrite('введите скорость лодки в стоячей воде: '); readln(v); write('введите скорость течения реки: '); readln(v1); write('введите время движения по озеру: '); readln(t1); write('введите время движения против течения реки: '); readln(t2); s: =t1*v+t2*(v-v1); writeln('путь = ',s); end.

 

 

Pascalabc.net 1)   const      n = 10;   var     a : array [1..n] of integer;     i : integer;   begin      randomize;       for i : = 1 to n do      begin        a[i] : = 22 + random(114);         if a[i] > 100 then        writeln (a[i]);         end;     end.2)  var    a,n,r,i : integer;         begin    r : = 1;     readln (a,n);     for i : = 1 to n do      r : = r * a;   writeln (r);       end.3)  var    n,i,r : integer;       begin    r : = 1;     readln (n);     for i : = 1 to n do    r : = r *i;     writeln (r);     end.4)  var    i : integer;   begin  for i : = 192 to 223 do    write(chr(i);   ,'   ');   end.5)  var    i : integer;         begin     for i : = 255 downto 240 do    write (chr(i),' ');       writeln();       for i : = 239 downto 224 do    write (chr(i),' ');         end.7)  var    i : integer;   begin  for i : = 122 downto 97 do    writeln(chr(i));   end.