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

Вычислите объём учебника информатики в знаках. выясните, сколько учебников такого же объёма можно записать на cd ёмкостью 700 mb при условии использования восьмиразрядного компьютерного кода. представьте, помещение каких размеров потребуется для складирования такого количества учебников.

👇
Ответ:
321NIYAZ123
321NIYAZ123
11.02.2023
65 так как это инфа и да вот так вот коенечно но стоит все таки проверить еще раз более подробно, кстати ка кдела?
4,4(24 оценок)
Открыть все ответы
Ответ:
leraloslerap00mm6
leraloslerap00mm6
11.02.2023
Const
  pi = 3.14;
  g = 9.81;

var
  v0, alpha, x, y, t: single;

begin
  Write('Введите начальную скорость и угол: ');
  Readln(v0, alpha);
  Writeln('  t        x            y');
  t := 0;
  while t <= 10 do
  begin
    x := v0 * t * cos(alpha * pi / 180);
    y := v0 * t * sin(alpha * pi / 180) - g * t * t / 2;
    Writeln(t:4:1, x:11:3, y:13:3);
    t := t + 0.5
  end
end.

Тестовое решение:
Введите начальную скорость и угол: 30 60
  t        x            y
 0.0      0.000        0.000
 0.5      7.507       11.760
 1.0     15.014       21.068
 1.5     22.521       27.923
 2.0     30.028       32.326
 2.5     37.534       34.276
 3.0     45.041       33.773
 3.5     52.548       30.819
 4.0     60.055       25.411
 4.5     67.562       17.551
 5.0     75.069        7.239
 5.5     82.576       -5.526
 6.0     90.083      -20.743
 6.5     97.590      -38.413
 7.0    105.097      -58.535
 7.5    112.603      -81.110
 8.0    120.110     -106.138
 8.5    127.617     -133.617
 9.0    135.124     -163.550
 9.5    142.631     -195.935
10.0    150.138     -230.772

Отрицательные значения y в данном случае показывают, что тело как бы продолжает падать ниже первоначального уровня, что возможно только если с горы кидать что-то в пропасть)))
4,8(84 оценок)
Ответ:
kostas2018
kostas2018
11.02.2023
и c постусловием, и с предусловием.

Sub slot()
    Dim c As Double
    Dim c1 As Double
    Dim c2 As Double
    Dim c3 As Double
    Dim z As Integer
    Dim b As Integer
    Dim T As Integer
    Dim n As Integer
    n = 100 ' nado golov
    c = 100 ' vsego deneg
    c1 = 10 ' za bika
    c2 = 5 'za korovy
    c3 = 0.5 'za telenka
    z = 0
    Do
        b = 0
        Do While b <= c / c2
            T = 0
            Do While T <= c / c3
                If z + b + T = n Then
                    If z * c1 + b * c2 + T * c3 = c Then
                        MsgBox ("bikov: " & z & "korov: " & b & "Teliat: " & T)
                    End If
                End If
                T = T + 1
            Loop
            b = b + 1
        Loop
        z = z + 1
    Loop Until z > c / c1
End Sub
4,8(18 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ