Проверьте , правильность построения ​

№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.

1) 2,25 Мбайт, 2) 64 Мбайт, 3) 112,5 Мбайт

Объяснение:

1) K=1024*768 - количество пикселей

N=16777216 - количество цветов палитре

Решение N=2^i

I=K*i

16777216=2^24=2^i. Значит i=24 бита

I=1024*768*24/(8*1024)=2304 Кбайт=2,25 Мбайт

2) Дано:

N = 16 777 216

К = 1600 х 1200

Надо найти I

Решение:  N=2^i

I=K*i

16777216=2^24=2^i. Значит i=24 бита

I = 1600 · 1200 · 24 = 46 080 000 бит

46 080 000 бит = 5 760 000 байт = 5625 Кб = 5,5 Мб

Значит подойдет видеокарта лишь с 64 Мбайт.

3) Дано:

i = 16 битов

К = 1024 х 768

Частота обновления экрана = 75 Гц

Надо найти I

I = K · i

I = 1024 · 768 · 16 = 12 582 912 бит

12 582 912 бит = 1 572 864 байт = 1536 Кб = 1,5 Мб

Частота обновления означает, что за 1 с обновится 75 раз.

1,5 · 75 = 112,5 Мб