Замечание: цифры нумеруются слева направо. алг Число нач цел n, n1, n2, n3, n4, r вывод "Введите целое число", нс ввод n n1:= div(n,1000) n2:= mod(div(n,100),10) n3:= div(mod(n,100),10) n4:= mod(n,10) r:= (n2+n4)-(n1+n3) вывод r кон
9 + 9 + 9 = 27, при вводе числа, больше 27 будут выведены все трёхзначные числа.
Procedure ABC(A:integer); Var i:integer; Begin For i:= 100 to 999 do if (i div 100)+((i div 10) mod 10)+(i mod 10)<=A then Write(i,' '); End; Var A:integer; Begin Write('Введите целое число: '); ReadLn(A); ABC(A) End.
9 + 9 + 9 = 27, при вводе числа, больше 27 будут выведены все трёхзначные числа.
Procedure ABC(A:integer); Var i:integer; Begin For i:= 100 to 999 do if (i div 100)+((i div 10) mod 10)+(i mod 10)<=A then Write(i,' '); End; Var A:integer; Begin Write('Введите целое число: '); ReadLn(A); ABC(A) End.
алг Число
нач
цел n, n1, n2, n3, n4, r
вывод "Введите целое число", нс
ввод n
n1:= div(n,1000)
n2:= mod(div(n,100),10)
n3:= div(mod(n,100),10)
n4:= mod(n,10)
r:= (n2+n4)-(n1+n3)
вывод r
кон