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.
Подробнее - на -
Объяснение:
1. • мышь • клавиатура • экран дисплея.
2. • графический дисплей
3. • пикселем.
4. растром.
5. фрактальной & растровой
6. совокупность трех зерен люминофора.
7. Устройство, управляющее работой графического дисплея.
8. Электронное, энергозависимое устройство для хранения двоичного кода изображения, выводимого на экран.
9. 256 битов
10. Принтер.
11. 2 раза
12. Векторной.
13. сокращает объем памяти, необходимой для хранения изображения, и облегчает редактирование последнего
Объяснение:
1. (Если надо один ответ, то клавиатура)
3. Почему? ответ: на всех остальных делает машина, а тут саморучно
11. Что бы доказать для представления 65536 цветов требуется 16 чисел (00010000000000000000), а для 256 цветов - 8 (000100000000). 16 / 8 = 2.
Дальше не знаю
растровая графика
Объяснение: