В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
camaroSSdodge
camaroSSdodge
18.03.2021 11:06 •  Информатика

Поменяйте значение целых переменных a, b, c так, чтобы они были расположены в порядке неубывания (a< =b< =c)
pascal без сложных формул​

Показать ответ
Ответ:
lglglglgl
lglglglgl
02.04.2023 23:09
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=ArrRandom(30,1960,2016); a.Println;
  var iFirst:=a.IndexMin;
  var iLast:=iFirst;
  var vMin:=a[iFirst];
  for var i:=29 downto iFirst+1 do
    if a[i]=vMin then begin iLast:=i; break end;
  if iLast=iFirst
  then Writeln('Самый старший человек номер ',iFirst+1)
  else Writeln('Первый из самых старших людей имеет номер ',
    iFirst+1,', последний из людей этого возраста - номер ',
    iLast+1)
end.

Тестовое решение
1987 1971 1974 1989 1989 1960 1987 2016 1992 1962 1971 2011 1993 1962 2008 1994 1994 1976 1988 2014 2011 1960 1971 2000 1973 2010 1964 1976 1971 1993
Первый из самых старших людей имеет номер 6, последний из людей этого возраста - номер 22
0,0(0 оценок)
Ответ:
Aza3lo
Aza3lo
03.05.2022 22:47
Var x,y,z: real;
      t: integer;
begin writeln('введите х и у');
          readln(x,y);
          z:=sqrt(sqr(x)-sqr(y));
          t:=0;
          while (z>0,1) do
          begin t:=t+1;
                    z:=0,98*z;    {если 2% от изменяющегося расстояния до пола;
                   если же имеется ввиду 2% от исходного расстояния,
                   то нужно будет ввести новую переменную
                   или присвоить исходное значение z, например х,
                   то есть сразу после z:=sqrt(sqr(x)-sqr(y)); написать x:=z;
                   Формула (оператор) z:=0,98*z;  изменится так:
                   z:=z-x*0,98}
           end;
          writeln('палка упадет через ', t,' мин.');
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота