Var
x, y, z : real;
begin
read (x, y, z);
if (x > 0) then x := sqr (x);
if (y > 0) then y := sqr (y);
if (z > 0) then z := sqr (z);
write (x, ' ', y, ' ', z);
end.
1) Один байт может содержать 2^8 значений. Следовательно максимальное число будет (2^8) - 1. Т.е. 255. Почему (2^8) - 1 а не (2^8)? В область значений входит ноль, который будет 1 значением.<span>
2) Так же как и в первом. </span><span> (2</span><span>^16) - 1</span> цветов. Т.е. 65535 цветов
3) Хз
4) То же что и в первом. 255 символов.
5) Тк бит - минимальная и неделимая единица измерения информации, то мощность алфавита находится в пределе от 31(5 бит) до 63(6 бит).
Sub HOK()
Dim c As Long, NOK As Long
a = CInt(InputBox("Введите первое число"))
b = CInt(InputBox("Введите второе число"))
If a = b Then
NOK = a
Else
c = a * b
Do
If a > b Then a = a - b Else b = b - a
Loop Until a = b
NOK = c / a
End If
MsgBox "НОК=" + Str(NOK)
End Sub
Эквивалент - это цифра, стоящая после символа 'e' или 'E'. Коротко говоря, эквивалент можно преобразовать в вид ![10^{x}](https://tex.z-dn.net/?f=10%5E%7Bx%7D)
То есть, Ваша запись могла бы записаться так:
![5.72 * 10^{7} = 57200000](https://tex.z-dn.net/?f=5.72+%2A+10%5E%7B7%7D+%3D+57200000)
<h2>Ответ</h2>
7
1) Графический файл
2) Текстовый файл
3) Видеофайл
4) Видеофайл
5) Текстовый файл