Заполни таблицу.

Число 1910=100112 в однобайтовом формате:

Номера разрядов
7
6
5
4
3
2
1
0
Биты числа

0
0

0

var t: integer;

begin

  read(t);

  while t > 6 do

      t: =t-6;

  case t of

      0..2: write('green');

      3: write('yellow');

      4..6: write('red');

  end;

end.

2гбайта=2000000байт

2000000байт/400байт=5000текстовых файлов

var x,y: integer;

begin

  read(x,y);

  if (x> 0) and (y> 0) then writeln("i");

  if (x> 0) and (y< 0) then writeln("iv");

  if (x< 0) and (y> 0) then writeln("ii");

  if (x< 0) and (y< 0) then writeln("iii");

end.

program calc; var x,y: real; beginwrite('первое число: '); readln (x); y : = (1-x*2+5*x*4)*2; //   y : = pow( (1-x*x+5*pow(x,4) ) ,2); или так если там степениwrite ('результат: ',y); end.