800 × 600 × 8 / (1024 × 1875)<span> = </span><span>2
N = 2^i
N= 2^2 = 4
4 цветов</span>
program test;
var number: integer;
begin
write('Enter the number: ');
readln(number);
if (number mod 2 = 0) then
writeln('Chislo ', number, ' chetnoe')
else
writeln('Chislo ', number, ' nechetnoe');
readln();
end.
Var
n, cnt: integer;
begin
write('Введите число: ');
read(n);
repeat
inc(cnt);
n := n div 10;
until n = 0;
writeln('Количество цифр в числе: ', cnt);
end.
1,3 Мбайт=1,3*1024 Кбайта =1331,3 Кбайта≈1332 Кбайта
1,3 Мбайт =1,3*1024*1024 байта=1363148,8байт=1363149 байт