М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
андрейка44
андрейка44
07.11.2022 16:39 •  Информатика

Pascal. нужна . решить в pascal (если нужна . решить в pascal (если решиш - проси что угодно, )вот - под конец учебного года ученики 11 класса решали понять у кого же из них будет самый высокий средний ? известно , что - в классе учится 14 учеников, - сумма всех средних аттестата = 100.известно также , что первый ученик имел средний , который составляет 1/ 12 суммы всех средних . второй ученик - на 0,15 % больше, чем первый ученик , но на 1,75 % меньше , чем третий ученик . средние аттестатов двух сестер были равными среднему арефметичному оценок вышеупомянутых учеников , разделенном на 1.5 . четвертый ученика на конец года имел такой же , как и первый ученик , но на 5% меньше , а остальные ученики - имели равные .какой средний на конец года получил каждый?

👇
Ответ:
adekvat3
adekvat3
07.11.2022
Математическое решение:
u_{1} =100* \frac{1}{12}
u_{2}= u_{1}+ u_{1}* \frac{0,15}{100}
u_{3}= u_{2}+ u_{2}* \frac{1,75}{100}
u_{5}=(( u_{1}+ u_{2}+ u_{3})/3)/1,5
u_{6}= u_{5}
4,6(1 оценок)
Открыть все ответы
Ответ:
yarikkuisluiy
yarikkuisluiy
07.11.2022
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var m,n:integer;
  Write('Количество строк и столбцов матрицы: ');
  Read(n,m);
  var a:=MatrixRandom(n,m,10,99);
  for var i:=0 to n-1 do begin
    for var j:=0 to m-1 do Print(a[i,j]);
    Writeln
    end;
  var p:=ReadInteger('Введите число Р:');
  var b:array of integer;
  SetLength(b,4*m);
  var k:=0;
  for var i:=n-p to n-1 do
    for var j:=0 to m-1 do
      if a[i,j] mod 4=0 then begin
        b[k]:=a[i,j]; Inc(k)
        end;
  SetLength(b,k);
  b.Print
end.

Тестовое решение:
Количество строк и столбцов матрицы: 6 8
67 70 68 72 38 72 96 38
49 75 24 55 72 63 21 40
72 12 60 22 74 30 13 45
22 45 39 24 35 97 64 31
76 62 15 94 56 28 31 13
41 67 75 37 67 13 25 20
Введите число Р: 4
72 12 60 24 64 76 56 28 20
4,5(1 оценок)
Ответ:
yulenkaradosti
yulenkaradosti
07.11.2022
1. обратись на сайт разработчика, спроси их ли эта программа, попробуй понажимать на все функции в пиратке они явно будут не все работать.
2.Если ты купила программу в обычном браузере, можешь не беспокоиться, все не законные программы удаляют, но если ты зашёл через так называемый "Tor" то уже можешь задуматься легальна ли она, ну а также можно просто посмотреть на функционал программы если там есть что-то типо "Взломать пароль" естественно это не законно.
3.обратись на сайт разработчика, спроси их ли эта программа, попробуй понажимать на все функции в пиратке они явно будут не все работать.
4,6(65 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ