1280*1024=1 310 720 пикселей
2^2=4 цвета
2 бит для каждого пикселя
1 310 720 * 2 = 2 621 440 бит
2 621 440 / 8 = 327 680 байт
327 680 / 1024 = 320 Кбайт
Ответь: 320 килобайт
Этих цифр невероятно много. Я просто не сумею столько чисел написать! так что, напишу только те которые смогу.
1023, 1024, 1025, 1026, 1027, 1028, 1029,
1032, 1034, 1035, 1036, 1037, 1038, 1039,
1042, 1043, 1045, 1046, 1047, 1048, 1049,
1052, 1053, 1054, 1056, 1057, 1058, 1059,
1062, 1063, 1064, 1065, 1067, 1068, 1069,
1072, 1073, 1074, 1075, 1076, 1078, 1079,
1082, 1083, 1084, 1085, 1086, 1087, 1089,
1092, 1093, 1094, 1095, 1096, 1097, 1098
<u>// PascalABC.NET 3.3, сборка 1600 от 23.12.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var r:integer;
var x:real;
while true do begin
Write('Выберите тип единицы длины:',NewLine,
'1-дециметр, 2-километр, 3-метр, 4-миллиметр, 5-сантиметр, 0-выход.' );
Read(r);
if r=0 then begin Writeln('Пока!'); Exit end;
Write('Введите длину в этой единице: '); Read(x);
case r of
1:Writeln(x, ' дм = ',10*x,' см = ',100*x,' мм = ',x/10,' м = ',
x/10000,' км');
2:Writeln(x, ' км = ',1000*x,' м = ',10000*x,' дм = ',100000*x,' см = ',
x*1000000,' мм');;
3:Writeln(x, ' м = ',10*x,' дм = ',100*x,' см = ',x*1000,' мм = ',
x/1000,' км');
4:Writeln(x, ' мм = ',x/10,' см = ',x/100,' дм = ',x/1000,' м = ',
x/1000000,' км');
5:Writeln(x, ' cм = ',10*x,' мм = ',x/10,' дм = ',x/100,' м = ',
x/100000,' км');
end
end
end.
N = int (input ())
MAS = list (map (int, input().split()))
X = int(input())
answ = 0
for elem in MAS:
if elem == X:
answ += 1
print (answ)
