Программу про нахождения площади прямоугольника по двум сторонам напишите ))Паскаль

a1

program a1;

uses graphABC;

var i:integer;

begin

SetWindowSize(400,400);

for i:=0 to 7 do

begin

line(0,50*i,50*i,0);

line(400,50*i,50*i,400)

end

end.

b1

program b1;

uses graphABC;

var i:integer;

begin

SetWindowSize(400,400);

for i:=0 to 7 do

begin

line(50*i,0,400,400-50*i);

if i <> 0 then line(0,50*i,400-50*i,400)

end

end.

a2

program a2;

uses graphABC;

var i:integer;

begin

SetWindowSize(400,400);

for i:=0 to 7 do

begin

line(0,50*i,50*i,0);

line(400,50*i,50*i,400);

line(50*i,0,400,400-50*i);

if i <> 0 then line(0,50*i,400-50*i,400)

end

end.

b2

program b2;

uses graphABC;

var i:integer;

begin

SetWindowSize(400,400);

for i:=1 to 7 do line(50*i,0,50*i,400);

for i:=1 to 7 do line(0,50*i,400,50*i)

end.

Объяснение:

используем циклы с параметром

Для всех заданий воспользуемся формулой N=2^i? где N -количество цветов, а i -количество бит на 1 пиксель.
Задача 1.
N=2^4=16 цветов.

Задача 2.
N=224=2^i, поскольку для кодирования 128 цветов необходимо 7 бит, а для кодирования 256 цветов -8 бит, выбираем большее число, то есть 8 бит или 1 байт.

Задача 3.
65536 это 2^16⇒требуется 16 бит или 2 байта.

Задача 4.
1. Узнаем общее количество пикселей 1280*1024=1310720
2. Полученное число умножаем на глубину цвета 1310720*32=41943040 бит = 41943040/8 = 5242880 байт = 5242880/1024 = 5120 кб =5120/1024 = 5 Мб
ответ: 5 Мб