Написать программу , в паскале, для нахождения наименьшего и наибольшего из трех чисел с процедур

1. 40 * 50 * 30 = 60 000байт.

2. 1 символ = 8 бит. всего - 30 символов. 30 * 8 = 240 бит.

3. глубина цвета показывает сколько бит отводится для хранения значения цвета. 8 бит = 1 байт. всего пикселей, в данном случае, - 480 000. изображение будет занимать 480 000 * 1 = 480 000 байт. / 1024 = 468,75 кбайт.

4. для представления 65536 цветов требуется 16 чисел. для 256 цветов - 8 чисел. 16 / 8 = 2, значит объём файла уменьшится в 2 раза.

5. 16 цветов = 4 бита, т.к. = 16 ⇒ объём 1 пикселя = 4 бита. всего пикселей - 640 * 480 = 307 200 ⇒ 307 200 * 4 = 1 228 800 - общее количество бит (150 кбайт). 150 кбайт < 256 кбайт ⇒ достаточно.

6. 1 дюйм = 2,54 см. в 10 см содержится 3,94 дюйма (10 / 2,54 = 3,94). 3,94 * 600 = 2 364 пикселей по ширине и высоте экрана (т.к. разрешающая способность - 600 * 600 dpi). 2 364 * 2 364 = 5 588 496 точек в цветном изображении 10 на 10 см. информационный объем изображения: 5 588 496 * 16 = 89 415 936 бита или 64 мбайта.

Pascalabc.net 3.4.2, сборка 1843 от 24.10.2018 внимание! если программа не работает, обновите версию! №1

begin

  readseqinteger(4).where(t -> t.iseven).count.println

end.

№2

begin

  var (a, b, c) : = readreal3('введите a, b, c: ');

  var d : = b * b - 4 * a * c;

  if d < 0 then println('нет корней')

  else

    if d = 0 then println('x =', -b / 2 / a)

    else

    begin

      d : = sqrt(d);

      print('x1 =', (-b - d) / 2 / a);

      println('x2 =', (-b + d) / 2 / a);

    end

end.

№3

begin

  var (x, y) : = readreal2;

  if x = 0 then

    if y = 0 then println('начало координат')

    else println('ось oy')

  else

    if y = 0 then println('ось ox')

    else

      if x < 0 then

        if y > 0 then println('ii четверть')

        else println('iii четверть')

      else

        if y > 0 then println('i четверть')

        else println('iv четверть')

end.