Вопрос по информатике:
Написать программы на Pascal ABC:
1) Вывести на экран четырехзначные числа без повторений цифр.
2) Вывести на экран произведение последовательности чисел, начиная с 1. Количество этих чисел заносится руками.
3) Вывести на экран дату задаваемую пользователем предшествующей указанной на 1 день.
- 21.04.2018 07:18
- Информатика
- remove_red_eye 18830
- thumb_up 36
Ответы и объяснения 1
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.
- 22.04.2018 16:40
- thumb_up 28
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.