Var a: array[1..100] of integer; n: integer; i: byte; begin randomize; write ('Введите N: '); readln (n); for i:=1 to n do begin a[i]:=random(101); write (a[i]:5); end; writeln; for i:=n downto 1 do write (a[i]:5); end.
Сумма средних цифр может быть равна числу от 0 до 18 сумма крайних цифр может быть равна числу от 1 до 18 (т.к. ерайняя левая цифра не может быть равна нулю, потому тто в противном случае это было бы уже не 4х значное число. Например: 0123)
Так же получившиеся 2 новых числа не могут начинаться с нуля.
Порядок не убывания, значит второе число больше или равно первому.
число 101 могло быть составлено только из 10 и 1, но 1 < 10, значит они расположены в порядке убывания, это нам не подойдёт
20 составлено из 2 и 0, тоже порядок убывания, не подходит
312 составлен либо (3 и 12), либо (31 и 2), но наши два числа не могут быть больше 18 (т.к десятичные цифры от 0 до 9) Значит 312 составлен из 3 и 12 - подходит
Аналогично 1312 состоит из 12 и 13, подходит, т.к 13 >= 12 (пример исходного числа 6766)
А вот 1312 не подойдёт, т.к 12 < 13
1212 - подходит т.к. 12 >= 12 (пример исходного 6666)
112 - это либо 1 и 12, либо 11 и 2. Второй вариант отсекаем, первый подходит (например 1660)
1012 - подходит
ответ: может получиться 5 чисел из приведенных
Olga Arutyunyan
26.08.2022
Пронумеруем исходные утверждения. 1) круг не белый и не зеленый. 2) синяя фигура лежит между ромбом и красной фигурой. 3) треугольник не синий и не зеленый. 4) квадрат лежит между треугольником и белой фигурой. Теперь рассмотрим каждое из них. Из (1) круг не белый, а из (4) не белые также квадрат и треугольник. Следовательно, белым может быть только ромб. 5) Если ромб белый, то он не зеленый. Не зеленые также круг (1) и треугольник (3). Тогда зеленый квадрат. 6) Если квадрат зеленый (5), то он не синий и не красный. Не синие также ромб (2) и треугольник (3). Следовательно, синий круг. 7) Треугольник красный, поскольку остальные цвета уже распределены.
ответ: Квадрат зеленый, круг синий, ромб белый, треугольник красный.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Дана последовательность чисел а длины n. требуется вывести в обратном порядке
a: array[1..100] of integer;
n: integer;
i: byte;
begin
randomize;
write ('Введите N: ');
readln (n);
for i:=1 to n do begin
a[i]:=random(101);
write (a[i]:5);
end;
writeln;
for i:=n downto 1 do
write (a[i]:5);
end.
Результат:
Введите N: 10
37 48 9 48 68 5 67 100 67 20
20 67 100 67 5 68 48 9 48 37