Вводится произвольное натуральное число. вывести отдельно в порядке убывания все цыфры этого числа которые кратные 3 и в порядке возрастания все цифры этого числа которые кратны 2
194
500
Ответы на вопрос:
Var a: string; c: array['0'..'9'] of integer; i: integer; begin write('введите натуральное число: '); readln(a); for i: = 1 to length(a) do if ('0'< =a[i])and(a[i]< ='9') then c[a[i]]: =c[a[i]]+1; for i: = 1 to c['9'] do write('9 '); for i: = 1 to c['6'] do write('6 '); for i: = 1 to c['3'] do write('3 '); writeln; for i: = 1 to c['0'] do write('0 '); for i: = 1 to c['2'] do write('2 '); for i: = 1 to c['4'] do write('4 '); for i: = 1 to c['6'] do write('6 '); for i: = 1 to c['8'] do write('8 '); end. введите натуральное число: 59012549703651409725190351902745210974651094251087498015794801574801974850197423 9 9 9 9 9 9 9 9 9 9 9 6 6 3 3 3 0 0 0 0 0 0 0 0 0 0 0 0 2 2 2 2 2 2 4 4 4 4 4 4 4 4 4 4 6 6 8 8 8 8 8
3
Объяснение:
Цикл выполняется три раза (когда 'i' равно 1, 2 и 3), и на каждой итерации 'n' увеличивается на 1. Наконец, выводится значение переменной 'n', которое в данном случае равно 3.
Популярно: Информатика
-
alikhankoshpanov27.03.2020 22:39
-
Joshler0canon14.04.2022 13:21
-
BackTiger00712.02.2022 05:42
-
Alinka2409200629.09.2022 02:11
-
Dasha203823.03.2021 14:32
-
nicgames21.02.2022 01:56
-
babikovserega217.07.2020 14:04
-
8908644304012.03.2020 21:26
-
Malishka920908.09.2021 23:46
-
7903340460617.02.2023 23:01