// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(ReadInteger('n='),10,99);
a.Println.Sorted.Println;
Writeln('Количество разных чисел ',a.Distinct.Count)
end.
<u><em>Тестовое решение:</em></u>
n= 20
60 33 12 47 79 81 33 26 73 98 82 81 71 70 96 48 13 66 29 85
12 13 26 29 33 33 47 48 60 66 70 71 73 79 81 81 82 85 96 98
Количество разных чисел 18
Код и результат выполнения на скриншотах.
Точка 100 200
начертите в право 4 клетки
начетите низ лево 1 клетку
начертите в лево 2 клетки
начертите вверх лево 1 клетку
дальше не знаю
Ответ:
((1v0)v1)v1 = 1
(0&1)&1 = 0
1&(1&1)&1 = 1
((1v0)&(1&1))&(0v1) = 1
((1&0)v(1&0))v1) = 1
((1&1)V0)&(0V1) = 1
((0&0)V0)&(1V1) = 1
Объяснение:
V - Дизъюнкция - or - или
& - Конъюнкция - and - и
#include <iostream>
using namespace std;
int main()
{
int n,m,p;
cin>>n;
int n1=n/100;
int n2=(n/10)%10;
int n3=n%10;
if (n1>n2)
if (n1>n3) {m=n1; p=1;} else {m=n3; p=3;}
else
if (n2>n3) {m=n2; p=2;} else {m=n3; p=3;}
cout<<"max="<<m<<", poz= "<<p<<endl;
system("pause");
}