Var
N,A:integer;
Begin
Write('N = ');Read(N);
A:=0;
While N>0 do
Begin
if (N mod 10) > A then A:= N mod 10;
N:=N div 10;
End;
Write(A)
End.
Var
N,A,B:integer;
C:boolean;
Begin
Write('N = ');Read(N);
A:=-1;
B:=-2;
C:=false;
While N>0 do
Begin
if A=B then C:=true;
if N>0 then
Begin
A:=N mod 10;
N:=N div 10;
End;
if A=B then C:=true;
if N>0 then
Begin
B:=N mod 10;
N:=N div 10;
End;
End;
if A=B then C:=true;
if C then Write('Есть')
else Write('Нет')
End.
Объяснение:
Принтер (ағылш. printer) — мәтін мен кескіндерді қағазға немесе басқа да басып шығарылатын арқауларға шығаруға арналған құрылғы, ЭЕМ-ның ақпарат басып шығаруға арналған перифериялық құрылғыларының бір түрі. Баспа таңбаларын басу әдістеріне қарай Принтерлер матрицалық, сия құюшы ағыстық, (струйный), лазерлік, жарықаласыдиодтық, жылулық, сублимац., т.б. болып бөлінеді. Принтердің негізгі техникалық сипаттамаларына оның айыру қабілеті, басу жылдамдығы, материалдардың шығындылығы, фото басу мүмкіндігі, т.б. жатады.
1*60*40*150 = 360000 байт ~= 352 кб в одной книге
700*1024 = 716800 кб на диске
716800/352 = 2036 целых книг