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

65 так как это инфа и да вот так вот коенечно но стоит все таки проверить еще раз более подробно, кстати ка кдела?

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 в данном случае показывают, что тело как бы продолжает падать ниже первоначального уровня, что возможно только если с горы кидать что-то в пропасть)))

и 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