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

с практической работой по информатике:( Я не понимаю, как нужно построить эти модели для получения ответа, могу также показать таблицу с максимальной высотой полёта шарика с разными начальными скоростями
Не обращайте внимание на цифры в столбиках "кв.уравнение" и "моделирование". Я вписывала туда свои решения, но ошибка при этих решениях была очень большой(около 100%)


с практической работой по информатике:( Я не понимаю, как нужно построить эти модели для получения о
с практической работой по информатике:( Я не понимаю, как нужно построить эти модели для получения о

Показать ответ
Ответ:
mrsexobeat308
mrsexobeat308
04.02.2021 12:22
1. var a: array[1..10] of integer;
          i, kol: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  kol := 0;
  for i := 1 to 10 do
    if a[i] mod 2=0 then
    begin
      kol := kol + 1;
      write(a[i],' ');
    end;
  writeln;
  writeln(kol);
End.
2. var a: array[1..10] of integer;
    i, kol: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  kol := 0;
  for i := 1 to 10 do
    if a[i] > 9 then
    begin
      kol := kol + 1;
      write(a[i],' ');
    end;
  writeln;
  writeln(kol);
End.
3. var a: array[1..10] of integer;
    i: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  for i := 1 to 10 do
    if a[i] mod 2=0 then write(a[i],' ');
  for i := 1 to 10 do
    if a[i] mod 2=1 then write(a[i],' ');
End.
4. var a: array[1..10] of integer;
    i, r: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  i := 1;
  while i < 10 do
    if a[i+1] < a[i] then begin
      r := a[i+1];
      a[i+1] := a[i];
      a[i] := r;
      i := 1;
    end else i := i + 1;
  for i := 1 to 10 do
    if a[i] mod 2=0 then write(a[i],' ');
  for i := 1 to 10 do
    if a[i] mod 2=1 then write(a[i],' ');
End.
5. var a: array[1..10] of integer;
    i, kol: Integer;
Begin
  for i := 1 to 10 do read(a[i]);
  for i := 1 to 10 do
    if a[i] mod 10 = 5 then kol := kol + 1;
  writeln(kol);
End.
0,0(0 оценок)
Ответ:
darinchiiik
darinchiiik
03.02.2023 20:47

№ 1

11х = 36 - х

11х + х = 36

12х = 36

х = 36 : 12

х = 3

№ 2

7 - 2х = 3х - 18

7 - 2х - 3х = - 18

7 - 5х = - 18

5х = 7 - (- 18)

5х = 7 + 18

5х = 25

х = 25 : 5

х = 5

№ 3

0,4х + 3,8 = 2,6 - 0,8х

0,4х + 0,8х = 2,6 - 3,8

1,2х = - 1,2

х = - 1,2 : 1,2

х = - 1

№ 4

3/8х + 15 = 1/6х + 10

3/8х - 1/6х = 10 - 15

9/24х - 4/24х = - 5

5/24х = - 5

х = - 5 : 5/24

х = - 24

№ 5

- 6(2х + 1) = - 42 - 3х

- 12х - 6 = - 42 - 3х

- 12х + 3х = - 42 + 6

-9х = - 36

х = - 36 : (- 9)

х = 4

№ 6

3(х - 7) - 6(2х + 5) = 2(3х - 1) + 11

3х - 21 - 12х - 30 = 6х - 2 + 11

-9х - 51 = 6х + 9

- 9х - 6х = 9 + 51

- 15х = 60

х = 60 : (- 15)

х = - 4

№ 7

3/5 * (7/9х - 1/3) = х - 2 1/3

7/15х - 1/5 = х - 2 1/3

7/15х - х = - 2 1/3 + 1/5

7/15х - 15/15х = 1/5 - 2 1/3

- 8/15х = 1/5 - 7/3

- 8/15х = 3/15 - 35/15

- 8/15х = - 32/15

х = - 32/15 : (- 8/15)

х = - 32/15 * (- 15/8)

х = 4

№ 8

8 * (5 - 3х) = 6 * (2 - 4х) + 7

−8 (−3x + 5) + 6 (−4x + 2) + 7 = 0

Нет решений

№ 9

 3            5

=

2х - 1      3х - 2

3 * (3х - 2) = 5 * (2х - 1)

9х - 6 = 10х - 5

9х - 10х = - 5 + 6

-х = 1

х = - 1

№ 10

5ах = 14 - х

5а*4 = 14 - 4

20а = 10

а = 10 : 20

а = 1/2

а = 0,5

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота