Ввести целое число и определить верно ли что все его цифры расположены в порядке возрастания
296
313
Ответы на вопрос:
Uses crt; const n=8; var a: integer; b: array[1..n] of integer; i,k,t: integer; begin readln(a); k: =1; repeat for i: =k to k do b[i]: =a mod 10; a: =a div 10; inc(k); until a=0; t: =0; for i: =k-1 downto 2 do if (b[i]> b[i-1]) then inc(t); if t=0 then writeln('yes') else writeln('no'); end.
Популярно: Информатика
-
DeRellik18.03.2022 03:23
-
Марі201703.07.2020 23:15
-
гость6666604.05.2021 16:35
-
Asaboc45315.01.2022 10:42
-
hamidullinranis13.01.2023 13:56
-
misterpordon22.01.2023 16:50
-
katabelja02.12.2022 11:40
-
gunelhy14.04.2021 21:44
-
Retyyyghiop30.04.2021 00:22
-
ernarsailaubek12.11.2021 05:33