1)
var
a,b : integer;
begin
readln (a,b);
if a > b then
b := a +b;<span>
writeln (a,' ',b);
end.</span>
Program Maks;
var a, b, max:integer;
begin
writeln('vvedite chetnoe chislo, a, b');
readln(a);
if a>b then max:=a else max:=b;
writeln(max);
readln;
end.
В четырехцветном изображении для хранения одной точки требуется log(2)4 = 2 бита; в изображении с 16-цветной палитрой - log(2)16 = 4 бита. В том же объеме памяти в этом случае можно сохранить изображение, содержащее в 2 раза меньше точек, т.е. 300*200 / 2 = 30000. Если не изменять пропорции, то размер изображения ≈ 212*141
Вот точки в десятичной системе: (4,7),(6,11),(10,11),(12,7),(12,4),(13,3),(12,2),(12,3),(11,6),(8,3),(8,1),(6,1),(6,3),(4,3),(4,1),(2,1),(2,5)
Получилось что-то такое.
===== PascalABC.NET =====
begin
var a := ArrRandom(40, -99, 99);
a.Println;
var i := a.IndexMax;
a?[:i]
.Where(p -> p <> 0)
.Aggregate(Biginteger.One, (p, q) -> p * q)
.Print
end.