Написать программы на Pascal ABC:
1) Вывести на экран четырехзначные числа без повторений цифр.
2) Вывести на экран произведение последовательности чисел, начиная с 1. Количество этих чисел заносится руками.
3) Вывести на экран дату задаваемую пользователем предшествующей указанной на 1 день.
1) Вывести на экран четырехзначные числа без повторений цифр.
2) Вывести на экран произведение последовательности чисел, начиная с 1. Количество этих чисел заносится руками.
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.
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.
Новые вопросы в разделе Информатика
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
