var a,b:integer;
begin
writeln ('Введите два числа:');
read (a,b);
if a > b then begin
writeln ('Максимальное число: ',a);
end
else begin
writeln ('Максимальное число: ',b);
end;
end.
// PascalABC.NET 3.3.5
begin
var n:=ReadInteger('n=');
var a:=ReadArrInteger('Вводите массив:',n);
Writeln(a.Where(x->(x mod 3<>0)).Average);
end.
Пример:
n= 5
Вводите массив: 20 15 11 45 32
21
52/2 = 26 человек любят конфеты
26 - 20 = 6 любят только конфеты
52 - 6 = 46 любят либо мороженное либо и то и то
46 - 20 = 26 любят только мороженное
46 человек любит мороженное
Объем файла I=k*i, k- количество пикселей изображения, i- глубина цвета
k=128*128= 16384
i=㏒₂N, где N- количество цветов палитры
i=㏒₂64= 6 бит
I=16384*6= 98304 бит
98304 бит/8= 12288 байт
12288 байт/1024= 12 Кбайт
Ответ: 12 Кбайт