Лучшие Ответы

• 

  gugem

  06.06.2020

  4,5(62 оценок)

  ( 100a+b) копеек

• Открыть все ответы
• 

  Амбрела123

  15.12.2020

  4,8(15 оценок)
  Хватит плодить однотипные вопросы. ответ уже был дан в предыдущей теме.
  #include <iostream>
  #include <Windows.h>
  
  int main()
  {
      int v;
      double S, t, t1, tmpT,tmpT1,b,tmpT3;
  
      std::cout << "V - km\h: ";
      std::cin >> v;
      std::cout << "\nS - km: ";
      std::cin >> S;
      std::cout << "\nT - hour: ";
      std::cin >> t;
      std::cout << "\nT1 - minut: ";
      std::cin >> t1;
      tmpT = S / v;
      t -= tmpT;
      tmpT3 = t - tmpT;
      if (tmpT3 < t)
      {
          std::cout << "edem bez ostanovok" << std::endl;
          system("pause");
          exit(1);
      }
  
      tmpT1 = (t * 60) / t1;
      b = (double)(int)tmpT1;
      std::cout << "kol ostanovok: " << b << std::endl;
      system("pause");
  }
• 

  kolodenkoa444

  06.05.2023

  4,4(57 оценок)
  Const n=20;
  var a:array[1..n]of integer;
  i,b,k,c,f,g,h:integer;
  begin
  for i:=1 to n do a[i]:=Random(70)-20;
  for i:=1 to n do
  write(a[i],' ');
  writeln;
  for i:=1 to n do begin
  if (a[i] mod 5 = 0) and (a[i] mod 10<>0) or (a[i]=50) then begin
  b:=i;
  for b:=i to (n-1) do
  a[i]:=a[i+1];
  end; end;
  for i:=1 to n do
  write(a[i],' ');
  write('введите к ');
  read(k);
  for i:=1 to n do begin
  if a[i] mod i = 0 then begin
  c:=i;
  for i:=n downto c+1 do begin
  a[i]:=a[i-1];
  a[c+1]:=k;
  end;end;end;
  for i:=1 to n do
  write(a[i],' ');
  writeln;
  f:=0; g:=0;
  for i:=n downto 1 do begin
  if (a[i]>0) then f:=i;
  end;
  if a[f]=0 then write('нет положительных ');
  for i:=n downto 1 do begin
  if (a[i]<0) then g:=i;
  end;
  if (a[g]=0) then write('нет отрицательных ');
  if (a[f]<>0) and (a[g]<>0) then begin
  h:=a[f]; a[f]:=a[g]; a[g]:=h; end;
  for i:=1 to n do
  write(a[i],' ');
  writeln;
  end.