1,5 и 4 потому что X и У не могут быть одинаковыми
25) б
26)а
27)г
28)б
29)В
30)а
но как то так
При использовании 256 цветов для хранения одного пикселя требуется log(2)256 = 8 бит, при использовании 2 цветов - log(2)2 = 1 бит.
70 байт = 70*8 бит
Пусть K - количество точек изображения. Тогда 8*K - 1*K = 70*8 ⇒ K = 80
Размер исходного файла = 8*80 = 640 бит = 80 байт
Задание #1
var a:integer;
begin
a:=10;
while a<=150 do
begin
write (a,' ');
a:=a+10
end;
writeln;
a:=200;
repeat
write (a,' ');
a:=a-10
until a<100
end.
Задание #2
var a,b:integer;
begin
readln(a,b);
if a>b then write (a) else write (b)
end.
Задания #3
var a,b,c:integer;
begin
readln(a,b,c);
if (a>b) and (a>c) then write (a,' ',b+c);
if (b>a) and (b>c) then write (b,' ',a+c);
if (c>a) and (c>b) then write (c,' ',a+b)
end.
Ромб белый
квадрат зелёный
треугольник красный
круг синий