Андрей, Тарас, Лёня, Ярослав решили после учёбы зайти в компьютерный класс учителем разрешит запустить либо текстовые редактор либо графический редактор либо электронная тетрадь. какуб из программ открыл каждый из мальчиков если Андрей и Лёня не открывали текстовые редактор но запустили разные программы Лёня не загружал электронную тетрадь а Ярослав и Тарас не открывали графический редактор электронную тетрадь

var  n : integer; beginreadln (n); case n of1, 2, 12 : writeln ('зима'); 3, 4, 5 : writeln ('весна'); 6, 7, 8 : writeln ('лето'); 9, 10, 11 : writeln ('осень'); end; end.

64000*16=1024000 б=128000 б=125 кб

находим занимаемый объм в битах

640*640*2,5*4

делим на 1024 и находим его в килобитах

4000 кб

12000/4000=3 (3 бита цветности)

не ясно что нужно, кб-килобиты или килобайты

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

min,max,i,c,b: integer;

begin

  read(c,b);

  randomize;

  for i : = 1 to 10 do

        a[i]: = random(b) -c+1;

  min: =1;

  max: =1;

  for i: = 1 to 10 do

  begin

        if a[min]> a[i] then min: =i;

        if a[max]< a[i] then max: =i;

  end;

  writeln(a[min], a[max]);

end.