Var y,x: Integer;
begin
writeln('Введите x');
readln(x);
if (x>3) then y:=3*x-1
else y:=10;
writeln('Ответ, y = ', y);
end.
6 Кбайт = 6 * 1024 * 8 бит
Определим, сколько бит занимает один символ сообщения. Для этого разделим это количество бит на количество символов:
(6*1024*8) / 6144 = (6*1024*8) / (6 * 1024) = 8 бит.
Один символ сообщения занимает 8 бит. Для подсчета количества символов, которое можно закодировать этим количеством бит, возведем 2 в степень количества бит:
2^8 = 256
Ответ: 256 символов.
Блок-схема во вложении. Вот, если пригодится - программа
var
h,n:integer;
begin n:=1;
while h<=24 do
begin
h:=h+3;
n:=n*2;
end;
writeln(n);
<span>end.
</span>
3) Из пункта А в З :
АГЗ,АГВЖЗ,АВЖЗ
Ответ:3
Сорян, 4 задание не видно((Можешь в лс кинуть,я решу)