Uses crt;
var a,max,x,min:integer;
begin clrscr;
write('Vvedite chislo: '); readln(a);
a:=abs(a);
max:=a mod 10;
min:=a mod 10;
while a>0 do begin
x:=a mod 10;
a:=a div 10;
if x>max then max:=x;
if x<min then min:=x;
end;
writeln('Max^2: ',sqr(max));
writeln('Min^2: ',sqr(min));
readln;
<span>end.</span>
<span>Все буквы различны, каждая вынуждена встречаться только 1 раз, поэтому количество слов будет равняться количеству перестановок P =7 (при условии, что на "ы" тоже слова могут начинаться) = 7*6*...*1 = 5040</span>
16 цветов = 4 бита на пиксель.
640*480 = 307200 пикселей на экране.
307200*4 = 1228800 бит информации, делим на 8 = 153600 байт, делим на 1024 = 150 Килобайт
Автоматический (через заданное количество времени), и по щелчку
Количеством пикселей на дюйм изображения.