Подгрузите кумиром эту файлу
1.
var a,c:integer; m:set of 0..9; b:boolean;
begin
readln(a);
m:=[];
b:=false;
while a>0 do
begin
c:=a mod 10;
if c in m then b:=true;
m:=m+[c];
a:=a div 10;
end;
if b then writeln('Да')
else writeln('Нет');
end.
Пример:
121
Да
2.
var a,b,c:integer;
begin
readln(a);
c:=a;
b:=0;
while c>0 do
begin
b:=b*10+c mod 10;
c:=c div 10;
end;
if a=b then writeln('перевертыш')
else writeln('Нет');
end.
Пример:
121
перевертыш
128 * 128 = 16384 пикселей
8 Кб = 8192 байт = 65536 бит
65536 / 16384 = 4 бита на пиксель
2⁴ = 16
Ответ: 16 цветов.
итак, у нас есть файл, сжатый в два раза.
значит объем оригинального кода = 500кб * 2 = 1000кб
1000 кб = 1024000 байт или 8192000 бит (умножили на 8)
определим сколько бит приходитс на секунду записи:
8192000 бит / 30 сек = примерно 273066 бит в секунду. Известно что один отсчет занимает 16 бит, узнаем число отсчетов (частоту дискретизации)
273066/16 = примерно 17066 отсчетов в секунду.
Ответ: примерно 17.1 кГц
Var
s, p, w : string;
begin
s := 'программирование';
p := copy (s, 1,8) + s[13];
w := copy (s, 8, 3);
write (p, ' ', w);
end.