Написать программы на Pascal ABC: 1) Вывести на экран четырехзначные числа без повторений цифр. 2) Вывести на экран произведение последовательности чисел, начиная с 1. Количество этих чисел заносится руками. 3) Вывести на экран дату задаваемую пользователем предшествующей указанной на 1 день.
1) Программа для вывода четырехзначных чисел без повторений цифр:
program UniqueFourDigitNumbers; var num, i, j, k, l: integer; begin for i := 1 to 9 do for j := 0 to 9 do for k := 0 to 9 do for l := 0 to 9 do begin if (i <> j) and (i <> k) and (i <> l) and (j <> k) and (j <> l) and (k <> l) then begin num := 1000*i + 100*j + 10*k + l; writeln(num); end; end; end.
2) Программа для вывода произведения последовательности чисел:
program SequenceProduct; var n, num, i: integer; begin writeln('Введите количество чисел в последовательности: '); readln(n); num := 1; for i := 1 to n do num := num * i; writeln('Произведение последовательности чисел: ', num); end.
3) Программа для вывода предшествующей указанной на 1 день даты:
program PreviousDate; var day, month, year: integer; begin writeln('Введите день, месяц и год: '); readln(day, month, year); if day = 1 then begin if (month = 1) or (month = 2) or (month = 4) or (month = 6) or (month = 8) or (month = 9) or (month = 11) then begin day := 31; month := month - 1; end else if (month = 5) or (month = 7) or (month = 10) or (month = 12) then begin day := 30; month := month - 1; end else if month = 3 then begin day := 28; month := month - 1; end; end else day := day - 1; writeln('Предыдущая дата: ', day, '.', month, '.', year); end.
Надеюсь, что указанные программы помогут вам! Если у вас возникнут дополнительные вопросы, не стесняйтесь их задавать. Удачи!
1) Программа для вывода четырехзначных чисел без повторений цифр:
program UniqueFourDigitNumbers;var
num, i, j, k, l: integer;
begin
for i := 1 to 9 do
for j := 0 to 9 do
for k := 0 to 9 do
for l := 0 to 9 do
begin
if (i <> j) and (i <> k) and (i <> l) and (j <> k) and (j <> l) and (k <> l) then
begin
num := 1000*i + 100*j + 10*k + l;
writeln(num);
end;
end;
end.
2) Программа для вывода произведения последовательности чисел:
program SequenceProduct;var
n, num, i: integer;
begin
writeln('Введите количество чисел в последовательности: ');
readln(n);
num := 1;
for i := 1 to n do
num := num * i;
writeln('Произведение последовательности чисел: ', num);
end.
3) Программа для вывода предшествующей указанной на 1 день даты:
program PreviousDate;var
day, month, year: integer;
begin
writeln('Введите день, месяц и год: ');
readln(day, month, year);
if day = 1 then
begin
if (month = 1) or (month = 2) or (month = 4) or (month = 6) or (month = 8) or (month = 9) or (month = 11) then
begin
day := 31;
month := month - 1;
end
else if (month = 5) or (month = 7) or (month = 10) or (month = 12) then
begin
day := 30;
month := month - 1;
end
else if month = 3 then
begin
day := 28;
month := month - 1;
end;
end
else
day := day - 1;
writeln('Предыдущая дата: ', day, '.', month, '.', year);
end.
Надеюсь, что указанные программы помогут вам! Если у вас возникнут дополнительные вопросы, не стесняйтесь их задавать. Удачи!