если переменная A больше B то переменнвя Y равно переменной A, после идет вывод переменной Y, но если A меньше B то переменная Y равно B, послп вывод содержимого переменной Y
Var
a: array[1..10, 1..10] of integer;
i, j, k: integer;
begin
k := 1;
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
if(j >= i) then begin
a[i, j] := k;
k += 1;
end
else a[i, j] := 0;
write(a[i, j]:3);
end;
k := 1;
writeln();
end;
<span>end.</span>
1. 2*32 = 62 байт
2. ((1626-1536)*8*1024)/(32*60*24) = 16 бит
3. 5 бит, но если меньше 32, то достаточно и 4 бит
4.
5.
8*168 = 1344 бит = 168 байт
6.
7.
5*6 = 30 = 30/8 = 4 байта
4 * 125 = 500 байт
При использовании в изображении 2 градаций цвета для хранения одной точки требуется log(2)2 = 1 бит. Размер файла для хранения всего изображения = 600*480*1 бит = 600*480/8 байт = 36000 байт
Program Z1;
uses CRT;
var a, b, c, s: integer;
begin
read(a, b, c);
s:=a+b+c;
writeln(s);
end.