Вцентре окна (640х400) нарисовать прямоугольник 80х50 и закрасить его зеленым цветом в паскале. 10 класс
ничего не понимаю

f0=(15*16в1)+(0*16в0)=240 , делим столбиком число 240 на 2 (делим и делим) и записываем остатки с конца и получаем число 11110000

т.е.  240/20=120    ост  0

120/2=60    ост  0

60/2=30   ост  0

30/2=15  ост  0

15/2=7   ост  1

7/2=3   ост  1

3/2=1   ост  1

записываем в обратном поряде    11110000

1d4=(1*16в2)+(13*16в1)+(4*16в0)=256+208+4=468  делим столбиком число 468 на 2         111010100

var a: array [1..100] of integer;

i,n: integer;

s: string;

begin

  randomize;

  for i : =1 to 100 do

  begin

      a[i]: = random(1000)+1000;

      a[i]: =a[i] mod 100;

      a[i]: =a[i] div 10;

      if a[i] mod 2 = 0 then n=n+1;

  end;

  writeln(n);

end.

зачем вам такое старье?

1) и что с этим надо сделать. да ворд может создавать таблицы, они имеют какието границы. со связями не стыкалась но наверно и такое есть. может затянуть к примеру таблицу из екселя или аксеса

2)выделили нужные ячейки

  по горизонтали - есть кнопочкина панели(лево, право, по центру)

  по вертикали - пр кнопка-свойства ячеек - выравнивание- по вертикали-выбрать нужный вариант

так же можно обьеденять ячейки, менять направление текста, переносить или не переносить слова на новую строку, и тд

var a,b,c: real;

begin

  read(a,b,c);

  if (a> b) and (b> c) then begin

      a: =a*2;

      b: =b*2;

      c: =c*2;

  end

  else begin

      a: =-a;

      b: =-b;

      c: =-c;

  end;

  writeln(a,b,c);

end.