Срочно! Решение задачи должно выглядить на информационном языке турбо паскаля: Вывести на экран все четырехзначные числа, в записи которых нет
5-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)|2x + 1|=|2x-1|
2)2x + 1 (корень) = 2| x-1|
3)|3x-1| + |2x + 1|=8
| - модуль
Пожалуйста решите хоть что-то из этого!
__________ информации (бумаге, фотографии, киноплёнке и др.)
Читайте также
2.Составьте программу вычисления количества трёхзначных чисел палиндромов ( чисел, которые читаются одинаково слева направо и справа налево).
3.Найти двухзначные числа, которые делятся на сумму своих цифр
4.Составьте программу вывода количества трёхзначных чисел, у которых цифры упорядочены строго по убыванию.
РЕБЯТА СРОЧНО!!!!!!!!!!!
2.Составить блок - схему кипячения чайника.
3.Составить алгоритм сбора яблок в саду.Ваша задача сводится к тому,что необходимо собрать ведро яблок с земли.
4.Составьте алгоритм на формальном языке и блок - схему для решения следущего примера : y=5x+6,если х=3