#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 Mila37;
var b, m, s, f:integer;
begin
writeln('*******************************');
writeln('* ПРИЁМНАЯ КОМИССИЯ *');
writeln('*******************************');
writeln;
write('введите проходной балл');
readln(b);
write('введите оценку по математике ');
readln(m);
write('введите оценку за сочинение ');
readln(s);
write('введите оценку по физике ');
readln(f);
if m+s+f<b then
begin
writeln('К сожалению, Вы не поступили...');
writeln('Попробуйте снова через год.');
end
else
begin
writeln('Поздравляем!!! Вы поступили ');
writeln(' и зачаслены на I-й курс');
end;
end.
<span>Сканер создаёт цифровую копию изображения объекта.</span>
11010000 10100111 11010000 10010101 11010000 10100000 11010000 10011101
11010000 10010101 11010000 10100110 11010000 10011010 11010000 10010000
11010000 10101111
Ответ:
Объяснение:
program pr; label l; var mas: array[1..10] of integer; i,k,n,b,sum: integer; beginrandomize; for i: =1 to 10 do mas[i]: =round(())*random+(-10)); l: for i: =1 to 10 dobeginif n< mas[i] thenbeginn: =mas[i]; k: =i; end; end; writeln ('a[',k,']=',n); mas[k]: =-11; n: =0; k: =0; if b=0 thenbeginb: =1; goto l; end; readln; end.
программу проверил все работает
