#include <iostream>
using namespace std;
int main()
{
int a;
cin >> a;
int mas[3] = {a / 100, (a % 100) / 10, a % 10};
for (int jjj = 0; jjj < 3; jjj++)
for (int kkk = 0; kkk < 3; kkk++)
for (int lll = 0; lll < 3; lll++)
{
if (jjj != kkk and kkk != lll and lll != jjj)
if (!(jjj == 0 and kkk == 1 and lll == 2))
cout << mas[jjj] << mas[kkk] << mas[lll] << endl;
};
}
Исполнитель - выполняет команды Бумага - носитель информации Звуковая информация - передаёт звук Исполнитель - выполняет команды ?! Бумага - цветная? Звуковая информация - передаёт звук !!
Program n1;
var
n, i: integer;
p: real;
begin
randomize;
n:=random(15)+1;
p := 1;
for i := 2 to n do
p := p * i;
writeln(n, '! = ',p);
end.
N=2^x
V=N•x
x=V/N
x=900бит/180=5 бит
N=2^5=32 символа
Ответ: N=32 символа.
Const n=10;
var a: array[1..n] of integer;
k,i: integer;
begin
k:=0;
for i:=1 to n do
begin
writeln('элемент', i);
readln(a[i]);
if a[i] <> 0 then k:=k+1
end;
writeln(k)
end.