<u>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadArrInteger('Вводите:',ReadInteger('n='));
Writeln('Различных элементов- ',a.Distinct.Count)
end.
<em>Пример</em>
n= 10
Вводите: 456 12 6432654 -35424 -323421341 0 6432654 634222 -234532 34
Различных элементов- 9
Ответ:
x∈(-∞;4]
Объяснение:
Приведем выражение к следующему виду
(x <= 4) & (x < 7).
Знак & обозначает логическое "И", а значит высказывание будет истино при выполненении и левой и правой части выражения
Объединим условие. Получим: при x <=4
Var a,b,c:real;
begin
writeln('Введите a,b,c');
readln(a,b,c);
if (a<=3) and (a>=-1) then writeln(a, ' принадлежит промежутку [-1,3]');
if (b<=3) and (b>=-1) then writeln(b, ' принадлежит промежутку [-1,3]');
if (c<=3) and (c>=-1) then writeln(c, ' принадлежит промежутку [-1,3]');
end.