Ответы на вопрос:
По-простому: mod означает остаток от деления первого числа на второе.
Объяснение:
Например, при делении 128 на 33 получается 3 и в остатке 29. Поэтому 128 mod 33 = 29.
Var n1,n2,a,b: integer; d: byte; begin writeln('1 - ввести n1 и n2, 0 - выход'); readln(d); while d = 1 do begin write('n1 = '); readln(n1); write('n2 = '); readln(n2); for n2: = n1 to n2 do begin a: =n2; b: =0; while a> 0 do begin b: =b*10+a mod 10; a: =a div 10; end; if b = n2 then write(n2,' ') end; writeln; writeln('1 - продолжить, 0 - выйти'); readln(d); end; end. правда, я не уверен, что она правильно работает на любых числах, поэтому ещё одна версия: var n1,n2,d: integer; a,b: string; begin writeln('1 - ввести n1 и n2, 0 - выход'); readln(d); while d = 1 do begin write('n1 = '); readln(n1); write('n2 = '); readln(n2); for n2: = n1 to n2 do begin a: =inttostr(n2); b: =''; for d: = length(a) downto 1 do b: =b+a[d]; if a=b then write(n2,' ') end; writeln; writeln('1 - продолжить, 0 - выйти'); readln(d); end; end.
Популярно: Информатика
-
Over00307.09.2020 03:01
-
Настя20010122.02.2022 05:12
-
topciknazaraakinceva26.10.2022 18:55
-
anyadorr02.06.2020 17:26
-
artemmavericksmesrri14.07.2022 18:29
-
ильзат1215.02.2022 18:23
-
NObrains029.06.2022 16:05
-
valeriargavina10.05.2023 17:23
-
максим150388990029.03.2023 16:34
-
Salvatation123004.05.2020 09:40