Легкая задача Жарасхан очень любит решать сложные задачи, но иногда ему дается нелегко, когда надо решать - id1657953120230329 от lika1vulvach 29.03.2023 01:13

Question

Информатика: Легкая задача Жарасхан очень любит решать сложные задачи, но иногда ему дается нелегко, когда надо решать легкую задачу :D Дается число, нужно найти минимальное следующее число, которое строго больше текущего числа и состоит из уникальных чисел. Жоре решить эту легкую задачу. Входные данные: (1000 ≤ y ≤ 9000) Выходные данные: Вывод числа, которое сторого больше текущего числа и состоит из уникальных чисел. Пример 1 Ввод: 2013 Вывод: 2014 Пример 2 Ввод: 1234 Вывод: 1235 Пример 3 Ввод: 4572 Вывод:

lika1vulvach · Accepted Answer

Program q1; uses crt; const n=10; var i,j:integer; mass:array [1..n] of integer; countNum:integer; // переменная для хранения количества нечетных чисел proizv:integer; // переменная для хранения произведения нечетных чисел BEGIN proizv:=1; // так как, изначально равно 0, а при умножении на 0 будет всегда 0 {создание последовательности n целых чисел} Writeln( Случайные целые числа: ); for i:=1 to n do begin mass[ i ]:=random(9)+1; //присваеваем переменной случайное значение от 1 до 10 write(inttostr(mass[...

MOGZ ответил