350*200=70000 пикселей
65 Кбайт = 65000 байт * 8 = 520000 бит
520000/70000=7
2^7=128 цветов
//PascalABC.Net 3.1.0.1200
begin
var a := ArrRandomInteger(100, 1, 100).toList;
Println(A);
a := a.Sorted.toList;
a := a.Pairwise().Where(x -> x.Item1 = x.Item2).Select(x -> x.Item1).toList;
a := a.Distinct.toList;
Println(A);
end.
1 мегабайт это 8 мегабит
файл весит 12 * 20 = 240 мегабит
переводим в мегабайты
240/8 = 30 мегабайт
var s: string;
begin
readln(s);
writeln('кол-во символов: ',length(s));
if s[1]=s[length(s)] then
writeln('первая и последняя буквы слова совпадают')
else writeln('первая и последняя буквы слова не совпадают');
writeln('первый, третий и последний символы: ',s[1],' ',s[3],' ',s[length(s)]);
if length(s) mod 2=0 then write('кол-во символов четное')
else write('кол-во символов нечетное');
end.