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.
Подробнее - на -
Объ
Дихотомические:
Дихотомические:
Пол
(мужской vs. женский)
Недихотомические:
Национальность
(американец/китаец/ и т.д) Дихотомические:
Состояние здоровья
(здоровый vs. больной),
Красота
(красивый vs.уродливый)
Недихотомические:
Мнение
('полностью согласен'/
'скорее согласен'/
'скорее несогласен'/
'полностью несогласен') Дата
(с 1457 до н. э.
до 2013 н.э)
Широта
(от +90° до −90°)
Температура
(от 10 °C до 20 °C)
Возраст
(от 0 до 99 лет)
Мера центральной тенденции
Мода
Медиана
Среднее арифметическое
Среднее геометрическое
Метрическая или
нет
Неметрическая (качественная)
Неметрическая (качественная)
Метрическая (количественная)
Метрическая (количественная)
Критика типологии Стивенса
Пол
(мужской vs. женский)
Недихотомические:
Национальность
(американец/китаец/ и т.д) Дихотомические:
Состояние здоровья
(здоровый vs. больной),
Красота
(красивый vs.уродливый)
Недихотомические:
Мнение
('полностью согласен'/
'скорее согласен'/
'скорее несогласен'/
'полностью несогласен') Дата
(с 1457 до н. э.
до 2013 н.э)
Широта
(от +90° до −90°)
Температура
(от 10 °C до 20 °C)
Возраст
(от 0 до 99 лет)
Мера центральной тенденции
Мода
Медиана
Среднее арифметическое
Сред
нет
Неметрическая (качественная)
Неметрическая (качественная)
Метрическая (количественная)
Метрическая (количественная)
Критика типологии Стивенсаяснение:
94,5
Объяснение:
8 бит = 1 байт
1 Кбайт = 1024 байт
(56*48)*36=96768(байт)
96768/1024=94,5(кбайт)