2)var x,y:integer;beginreadln (x,y); while x<16 do begin if x>y then beginx:=x-2;y:=y+4 end else beginx:=x+5;y:=y-3; end; end;writeln ('x=',x,'y=',y);end.
криво но работает,там в таблице строка слева на право 16 11 16 12 и так вниз,так условие постоянно не выполняется (16<16 не выполняется)
3)var x,y:real;beginreadln (x,y);while x<0 dobeginif x<y thenbeginx:=x+1;y:=y/2;endelsebeginx:=x+3;y:=y-2;end;end;x:=x-5;y:=y+3;writeln ('x=',x,'y=',y);end.
таблицу сам
<span>Хранение информации.-На бумаге, в уме.
</span><span>Передача информации.- По телефону, письмом в конверте
</span><span>Поиск информации.-Спрашивать у друзей,знакомы или просто спросить дорогу у прохожего, также в автобусах и метро есть карты.
</span>
1 байт - 8бит
256/8 = 32 Байта
<span>В графическм редакторе PAINT открыть рисунок</span>
Посчитайте 1мег=1024килобайт 1килобайт=1024байт 1байт=8бит.