Теплоход км против течения реки а затем ещё 33 км по течению затратив на весь путь 1 час найдите собственную скорость теплохода если скорость течения реки равна 6,5километра в час
Var s:string; i:integer; begin readln(s); while i<length(s) do begin inc(i); if s[i]=',' then insert(' ',s,i+1); end; writeln(s); end.
Пример ввода: Some,awesome,test,text, Пример вывода: Some, awesome, test, text,
//2
Var s:string; i,k,j:integer; ars:array of string; begin readln(s); setlength(ars,length(s)); k:=0; for i:=1 to length(s) do begin if (s[i]=' ') and (s[i+1]<>' ') and (i<>length(s)) then inc(k) else ars[k]:=ars[k]+s[i]; end; for i:=0 to k-1 do for j:=i+1 to k do if LowerCase(ars[i])>LowerCase(ars[j]) then begin s:=ars[i]; ars[i]:=ars[j]; ars[j]:=s; end; for i:=0 to k do writeln(ars[i]); end.
Пример ввода: Очень много яков и антилоп Пример вывода: антилоп и много Очень яков
begin var n := ReadlnInteger('n = '); var m := ReadlnInteger('m = '); var rand := ReadlnInteger('Для ручного ввода нажмите 0');
if rand = 0 then begin a := new integer[m, n]; for var i := 0 to m-1 do for var j := 0 to n-1 do a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = '); end else a := MatrixRandom(m, n, 1, 100); Println(a);
var b := ArrGen(n, x -> 1); for var i := 0 to m-1 do for var j := 0 to n-1 do if j mod 2 = 0 then b[j] := b[j] * a[i, j];
b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println(); end.
4(x + 6.5) + 33(x - 6.5) = 1(x + 6.5)(x - 6.5).
4x + 26 + 33x - 214.5 = x^2 - 42.25.
x^2 - 37x + 146.25 = 0.
D = (-37) - 4 * 146.25 = 784.
Лишний корень: x1 = (37 - 28)/2 = 9/2 = 4.5.
Рассчитываем скорость теплохода: х2 = ( 37 + 28)/2 = 32.5 км./ч.