Информационный объем сообщения равен 4000 бит. это же сообщение имеет объем: 1) меньший 0, 5 кбайт 2)больший 0, 5 кбайт 3)равный 0, 5 кбайт 4) равный 400 байт

2) больший 0,5 кбайт

program t;

var

a,c: real;

i: integer;

begin

i: =1;

a: =1000;

write('1');

while(i< > 6) do

  begin

  a: =a+a*(2*0.01);

  inc(i);    

  end;

writeln('спустя ',i,' месяцев =',a: 4: 2);

a: =1000;

i: =1;

write('2');

while(true) do

  begin

  a: =a+a*(2*0.01);

  inc(i);

  if(a> 1200)then begin writeln('через ',i); break; end;

  end;

a: =1000;

c: =0;

i: =1;

write('3');

while(true) do

  begin

  c: =a*(2*0.01);

  a: =a+c;

  inc(i);

  if(c> 50) then begin writeln('через ',i,' месяцев'); break; end;

  end;

 

end.

1)  на паскале: если число целое, то var a : integer; label transfer; begin readln(a); last : =  a mod 10; n : = 999 for counter = 1 to n do   if ((a div 10) < 10) and ((a div 10) > 0)        begin       first : = a div 10;       goto transfer;   else       a : = a div 10; transfer: if (last mod first = 0) then written('true')                                     else written('false'); readln(); end. если что-то не понятно - в лс или в комменты сюда