Ввод x
readln(x);
Далее идет просто ифовое перечисление условий.
Промежутки:
(-oo;1]
[5;9)
Снизу левый не ясно откуда. Напишу что от 0. Вставишь своё число по заданию.
(0;3]
[7;+oo)
Всё, промежутки установили. Теперь вбиваем их в if
var
x:integer;
begin
readln(x);
if (x<=1) or ((x>=5) and(x<9)) or ((x>0) and (x<=3)) or (x>=7) then writeln('Принаждежит') else writeln('не принаждежит');
end.
Только я сделал 4 промежутка в одном задании)
Теперь ты разложи как нужно (либо на 2 задания, либо найди их общее решение.)
Объ
Дихотомические:
Дихотомические:
Пол
(мужской 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 лет)
Мера центральной тенденции
Мода
Медиана
Среднее арифметическое
Сред
нет
Неметрическая (качественная)
Неметрическая (качественная)
Метрическая (количественная)
Метрическая (количественная)
Критика типологии Стивенсаяснение:
var a,b,c,d,e: integer;
begin
writeln ('Введите четырехзначное число');
readln (a);
b:=a div 1000;
c:=a div 100;
c:=c mod 10;
d:=a mod 100;
d:=d div 10;
e:=a mod 10;
if (a mod b = 0) and (a mod c = 0) and (a mod d = 0) and (a mod e = 0) then writeln ('Число делится на все свои цифры')
else writeln ('Число не делится на все свои цифры');
end.