#include <iostream>
using namespace std;
int main() {
int n=10;
int a[n];
int k[n];
bool b=true;
for (int i = 0; i < n; i++) cin >> a[i];
for (int i = 0; i < n; i++) k[i]=0;
for (int i = 0; i < n; i++) k[a[i]-1]=k[a[i]-1]+1;
for (int i = 0; i < n; i++)
if (k[i] != 1) b=false;
if (b) cout << "Yes" << "\n";
else cout << "No" << "\n";
return 0;
}
Пример:
2
5
8
1
4
7
9
6
3
10
<span>Yes</span>
Var
y, x: real;
begin
read(x);
if (x > -20) and (x < -10) then
y := x * x * x * x
else if (x > -10) and (x < -20) then
y := abs(x)
else if ((x > 0) and (x < 20)) or ((x > 30) and (x < 70)) then
y := 45
else if ((x > 80) and (x < 100)) or ((x > 110) and (x < 140)) or (x > 180) then
y := abs(x - 4)
else
y := abs(x + 2);
writeln(x, ' ', y);
end.
В биосе проставьте USB Keyboard Support и USB Mouse Support в Enabled. Это самая частая причина. Как признак — на оптической мыши после старта не горит светодиод (нет питания). После установки Windows значение этих настроек не важно, т. к. в дело вступают уже драйверы Windows
1. 1100 : 11 * 100 = 10000
2. 1100 * 10 * 10 - 110000 = 0
Const
N = 30;
var
a: array [1..N] of integer;
i, j, k: integer;
begin
for i := 1 to N do
readln(a[i]);
for i:=1 to N-1 do
if (a[i] mod 13=0) or (a[i+1] mod 13=0) then k:=k+1;
writeln('k=',k)
end.