Объяснение:
Числа, текст, формулы....
История 2 мировая война, биология-вымирание динозавров, география-земля имеет форму шара
·²²²²²²²²
где предложение??????????????
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
перевертыш
A=1024
b=1024
V=512 КБ
Найти N
N=2^I
V=a*b*I I=V/a*b ( переводим 512Кб в биты в числителе) 1пиксель=1 бит в знаменателе
I=512*1024*8/1024*1024= 4 бит
N=2^4=16 цветов в палитре