Похоже на то, что ящик ждет на вход только число и выводит 1. если оно нечетное и 0 - если четное. Если на вход задано не число, то ящик выводит "Не могу".
В пустой строке 0.
Var a,b:real:
begin
read(a);
b:=a*0.91;
writeln();
write(&a,'m=',&b,'yards');
end.
Т.к. 129>128. то 7 бит будет мало (2^7=128). Т.о. надо минимум 8 бит (2^8=256)
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 30 * 40 * 50 = 60000 шт
Пусть i = 8 бит (Кодировка ASCII)
I - ?
Решение:
I = K * i = 60000 * 8 бит = 480000.0 бит
480000.0 бит = 60000.0 байт = 58.59375 Кбайт
Var a, b, c: integer;
begin
writeln('Введите три числа:');
readln(a, b, c);
if (a > b) and (a > c) then writeln(a);
if (b > a) and (b > c) then writeln(b)
else writeln(c)
end.