Для хранения отсканированных слайдов отведено x мбайт памяти (x – целое число). если сканирование слайдов произвести с использованием палитры из 2^24 цветов, то отведенной памяти хватит на хранение двадцати изображений и останутся свободными 0,75 мбайт. если сканирование слайдов произвести с использованием палитры из 2^32 цветов, то отведенной памяти хватит на хранение шестнадцати изображений и отведенный объем памяти будет использован полностью. сканированные изображения содержат одинаковое количество пикселей. известно, что каждый файл с изображением кроме несжатой графической информации также содержит 512 кбайт служебной информации. сколько памяти отведено для хранения сканированных изображений? в ответе укажите целое число мбайт.

1

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    if n mod 2 = 0 then write('четное') else write ('нечетное');

    realdn

end.

2

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    e : = n mod 10

    if e = 7 then write('заканчивается на 7') else write ('не заканчивается на 7');

    realdn

end.

рrogram summa;

var s, a, b, c : word;

            write('введите a - > '); readln(a);

            write('введите b - > '); readln(b);

            write('введите с - > '); readln(c);

            s=а+в+с

            write(' сумма равна ',s);

            readln

в принципе все, должно быть правильно

строка, рот, ройка, ретро, рост, койка, река,тройка,тропа,река.

s : = 0

for i : = 1 to n do

  if i mod 2 = 1 then

      s : = s - 1/2/n

  else

      s : = s + 1/2/n;