Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 978 ответов!

Срочно! Решение задачи должно выглядить на информационном языке турбо паскаля: Вывести на экран все четырехзначные числа, в записи которых нет

5-9 класс

одинаковых цифр!

Rozhdestvenskayaa 01 июля 2014 г., 7:16:34 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Irko1998
01 июля 2014 г., 8:04:32 (9 лет назад)

var
a: integer;
c1, c2, c3, c4: integer;

begin
for a := 1000 to 9999 do
begin
c1 := a div 1000;
c2 := (a div 100) mod 10;
c3 := (a div 10) mod 10;
c4 := a mod 10;
if (c1 <> c2) and (c1 <> c3) and (c1 <> c4) and (c2 <> c3) and (c2 <> c4) and (c3 <> c4)
then writeln(a);
end;
end.

Ответить

Другие вопросы из категории

Читайте также

1.Составьте программу, выводящую на экран все двухзначные числа, у которых сумма цифр равна 8.

2.Составьте программу вычисления количества трёхзначных чисел палиндромов ( чисел, которые читаются одинаково слева направо и справа налево).
3.Найти двухзначные числа, которые делятся на сумму своих цифр
4.Составьте программу вывода количества трёхзначных чисел, у которых цифры упорядочены строго по убыванию.
РЕБЯТА СРОЧНО!!!!!!!!!!!

1.Составьте блок-схему для решения задачи: Найти площадь S и периметр P прямоугольника. Значения сторон а и в задать произвольно.

2.Составить блок - схему кипячения чайника.

3.Составить алгоритм сбора яблок в саду.Ваша задача сводится к тому,что необходимо собрать ведро яблок с земли.

4.Составьте алгоритм на формальном языке и блок - схему для решения следущего примера : y=5x+6,если х=3



Вы находитесь на странице вопроса "Срочно! Решение задачи должно выглядить на информационном языке турбо паскаля: Вывести на экран все четырехзначные числа, в записи которых нет", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.