Написать программки на Pascal ABC:1) Вывести на экран четырехзначные числа без

Написать программы на Pascal ABC:
1) Вывести на экран четырехзначные числа без повторений цифр.
2) Вывести на экран творенье последовательности чисел, начиная с 1. Количество этих чисел заносится руками.
3) Вывести на экран дату задаваемую юзером предшествующей обозначенной на 1 денек.

Задать свой вопрос
Арсений Бендяк
2. Творенье чисел 1, 2, 3,... до n? 3. Про дату понятнее напиши
Семён Зорилов
Вывести на экран творенье последовательности чисел, начиная с 1. Количество этих чисел заносится руками
1 ответ
Begin
var seq := Range(1000, 9999);
var s: string;
foreach var x in seq do
begin
s := x.ToString;
var count := 0;
for var i := 1 to 3 do
for var j := i + 1 to 4 do
if s[i] = s[j] then count += 1;
if count = 0 then Print(s);
end;
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.

Разные вопросы.

Сочинение на тему "Русский язык не сможет умереть!"

Математика.

Приветствую! Меня зовут Станислав, я представляю компанию under.site. Хотел бы предложить интересное решение

Разные вопросы.

Масса трёх одинаковых пакетов чая 180г чему равна масса

Математика.

Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл

Химия.

Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы

Русский язык.

Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника

Геометрия.

Вычислите силу с которой при давлении 100 КПа атмосфера давит на

Физика.

Синтаксический разбор и схема Но мы сказали, что нам ничего не

Русский язык.

Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может

Химия.

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт