Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
проверка числа на отсутствие возрастающих и убывающих четвёрок
// проверка подходящего варианта тройки цифр // не должно быть возрастания или убывания из 4-х цифр var n, fl : integer; var m : array [1..9] of integer; begin // вводится число // разбивается на цифры и сохраняются в массиве // проверка, чтобы все цифры были разные цикл в цикле по парам // проверяем есть ли последовательность 4-х возрастающих цифр readln (n); for var i := 9 downto 1 do begin m[i] := n mod 10; n := n div 10; end; writeln(m); fl := 0; for var i := 1 to 9 - 3 do for var j := i + 1 to 9 - 2 do for var k := j + 1 to 9 - 1 do for var l := k + 1 to 9 do if not ( ((m[i] > m[j]) and (m[j] > m[k]) and (m[k] > m[l])) or ((m[i] < m[j]) and (m[j] < m[k]) and (m[k] < m[l])) ) then fl := 1 //writeln(m[i],' ', m[j],' ', m[k],' ', m[l],' ', m) else begin fl := 0 //writeln('No'); //break; end; writeln(fl, ' stop') end.
run
|
edit
|
history
|
help
0
Menukar nilai1
Tri1
dad
1486
09 Ariketa INTEGER
Lab2RandomAndAvg
Promedio con aprobación
BIANCA SAMPAIO ALFRADIQUE 600615759
(p,q,r)
fmke