Составьте программу вычисления количества трехзначных чисел, у которых цифры упорядочены строго по возрастанию
5-9 класс
|
Program Program1;
var
i,k,a,b,c:integer;
begin
k:=0;
for i:=100 to 999 do
begin
a:=i div 100;
b:=i div 10 mod 10;
c:=i mod 10;
if (b>a) and (c>b) then inc(k);
end;
writeln('Всего: ',k);
end.
Другие вопросы из категории
каждое из данных чисел из десятичной системы счисления в восьмеричную и шестнадцатеричную системы: 123, 2012. 3. Переведите в десятичную систему двоичные числа: 101101, 111111.
количеством отображаемых цветов, равным 16777216.
1)Файл.
2)Папка.
Пожалуйста помагите!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Читайте также
2.Составьте программу вычисления количества трёхзначных чисел палиндромов ( чисел, которые читаются одинаково слева направо и справа налево).
3.Найти двухзначные числа, которые делятся на сумму своих цифр
4.Составьте программу вывода количества трёхзначных чисел, у которых цифры упорядочены строго по убыванию.
РЕБЯТА СРОЧНО!!!!!!!!!!!