Для кодирования одного символа надо 7 бит.
для 12 символов 7*12=84 бит-11 байт
на одного пользователя отводится 1080/40=27 байт
27-11=16 байт для дополнительной информации
.
var rost,ves:real;
begin
writeln('Введите вес');
readln(ves);
writeln('Введите рост') ;
readln(rost);
if (rost>=168) and (rost<=178) then
if ves<=rost-115 then writeln('Допущен') else writeln('не допущен') else writeln('не допущен ');
end.
{********************************}
car rost, ves:real;
begin
writeln('введите рост и вес конкурсанта') ;
readln(rost,ves);
if (rost<=168) or (rost>=178) then writeln('не допущен')
else if ves<=rost-115 then writeln('допущен')
else writeln('не допущен');
end.
Пишу 2 варианта, какой больше понравится.
3кБ=3072б (3*1024)
ответ 3072 байта делим на количество символов12288
равно 0.25 байт
1) 1,5 × 1024 = 1536 байт
2) 17 × 8 = 136 бит
3) 1бит - 1байт - 1Кбайт - 1Мбайт - 1Гбайт