Т.к. всё сообщение занимает 24 бита (количество 0 и 1), то 24/8=3 байта, в условии задано, что символы закодированы байтами, а их здесь 3,
Значит, 3 символа
Var time:integer;
var summa:real;
var month:string;
k:=1.05;
begin
month := ' месяцев';
summa:=10000;
while summa<20000 do begin
summa:=summa*k;
time:=time+1;
end;
writeln('Ответ:',time + month);
end.
Ответ:
1)(2^3+2^2)/2=6
2) г
3) 20
Каждая следующая будет больше предыдущей на 3, на восьмой она станет 20
Ответ:
1) 3
2) 2
3) 3
4) 1
5) 1
6) не смог ответить, т.к. не полностью сфотографировал и нет вариантов ответа.
Ну вроде как все правильно)
Объяснение:
Программа Integer3;
var
байт, килобайт: Integer;
начать
Write('Введите размер файла в байтах: ');
Readln(байт);
килобайт:=byte div 1024;
Writeln('Данный файл занимает ',килобайт,' полных килобайт.');
конец.