Написать программы на Pascal ABC:

1) Вывести на экран четырехзначные числа без повторений цифр.

2) Вывести на экран произведение последовательности чисел, начиная с 1. Количество этих чисел заносится руками.

3) Вывести на экран дату задаваемую пользователем предшествующей указанной на 1 день.

Question

Информатика

Фессалоникия

10 марта, 20:30

Написать программы на Pascal ABC:

1) Вывести на экран четырехзначные числа без повторений цифр.

2) Вывести на экран произведение последовательности чисел, начиная с 1. Количество этих чисел заносится руками.

3) Вывести на экран дату задаваемую пользователем предшествующей указанной на 1 день.

+1

Ответы (1)

Знаете ответ на вопрос?

Мина · Answer 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.