Для первого примера я привел пример перевода из двоичной системы в десятичную. Второй пример можете сделать так же. Я не стал этого делать, ибо долго.
Program fd;
var a,k:integer;
begin
Writeln('Ввести чётное натуральное число a');
Readln(a);
Writeln('Ввести число k');
Readln(k);
Writeln('',a div 100);
Readln(d);
Writeln('',a mod 100);
Readln(c);
if d+c>k then Write('Утверждение верно!'); else
if d+c<k then Write('Утверждение неверно!');
end.
Только для двузначного т.к. не имею на компьютере паскаль
var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(81)+20;
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k2:=k2+1
else k1:=k1+1;
writeln('Количество чётных элементов: ',k2);
writeln('Количество не чётных элементов: ',k1)
end.
<span>1) величина: цвет волос значение: рыжеволосый
2) величина: вес значение: 7 кг
3) величина: материал значение: Фарфоровая
4) величина: страна изготовления значение : Япония
5) величина: объем, значение: Большой
6) величина: размер значение: 17 дюймов</span>
Ответ:
Переведем размеры изображения в точки.
48.26×1200=57912 точек .
Размер изображения составит 57912×57912=3353799744 точек.
Глубина цвета - это количество бит , которые требуются для кодирования цвета одной точки. 16 бит - это 16/8=2 байта.
Тогда общий объём составит 3353799744×2= 670759948800байт.
Переводим в килобайты:670759948800 /1024≈6550390.13 Кбайт.
Переводим в мегабайты:6550390.13 /1024≈6396.87 Мбайт
Моно и в гигабайты перевести: 6396.87/1024≈6.25 Гбайт.