Друзья, нужно в течение часа. С решением

решение на

№1

program z1;

var n: integer;

begin

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

readln(n);

if (n mod 2 = 0) and (n div 100 < 1) and (n > 9) then write('данное число является четным двузначным') else if  (n div 100 < 1) and (n > 9) then write ('данное число не четное двузначное');

end.

№2

program z2;

var a, b, c, k: integer;

begin

k: =0;

writeln ('введите числа a, b и c: ');

readln(a,b,c);

if a< 0 then k: =k+1;

if b< 0 then k: =k+1;

if c< 0 then k: =k+1;

write('количество отрицательных чисел: ',k)

end.

найдём общее количество пикселей:

450*600=270000

переведём объём в биты:

150кб=1228800б

найдёт сколько бит в одном пикселе:

1228800/270000=4б/пикс

теперь найдём сколько нужно цветов:

2^k=4 значит к=2

ответ: 2 цвета.

1) +1 = 12) +1 = 23) +1 = 34) *2 = 65) *2 = 126) *2 = 247) +1 = 258) *2 = 50