В libre office и open office - Writer. Остальные программы перечислили ранее.
Вопрос один
Какое число ты загадал?
Если информация от 16 до 32 то
32 - 16 + 1 = 17 разных значений
ln(17)/ln(2) при округлении даст 5
5 бит
1 символ = 1 байт
Если
15 - 2 байт
15 - 2 байт
15 - 2 байт
= 6 байт * 92 = 552 байт
Если
-15 - 2 байт
-15 - 2 байт
-15 - 2 байт
= 6 байт * 92 = 552 байт
Если
15 - 2 байт
1 - 1 байт
15 - 2 байт
= 5 байт * 92 = 460 байт
Если
15 - 2 байт
1 - 1 байт
1 - 1 байт
= 4 байт * 92 = 368 байт
Если
1 - 1 байт
1 - 1 байт
1 - 1 байт
= 3 байт * 92 = 276 байт
. var a, b: real;
begin
write('Введите стороны прямоугольника: ');
read(a, b);
writeln('Периметр = ', 2 * a + 2 * b);
end.
2. var p, b: real;
begin
write('Введите два числа: ');
read(p, b);
writeln('Произведение = ', p * b);
writeln('Разность = ', p - b);
end.
3. var b: real;
begin
write('Введите длину ребра: ');
read(b);
writeln('Объем = ', b * b * b);
end.
4. var r: real;
begin
write('Введите радиус: ');
read(r);
writeln('Площадь = ', 3.14 * r * r);
end.
5. var a, b, c: real;
begin
write('Введите три стороны: ');
read(a, b, c);
writeln('Периметр = ', a + b + c);
end.