Ответы на вопрос:
Var a,b,n: string; i: integer; begin write('введите n: '); readln(n); write('введите a: '); readln(a); write('введите b: '); readln(b); for i: =length(n) downto 1 do if (n[i]=a) or (n[i]=b) then begin writeln('правее ',n[i]); halt; end; end.
Популярно: Информатика
-
elisavetto4ka12.08.2021 07:38
-
irinamazda10.05.2022 17:49
-
eleniuuum22.06.2022 06:28
-
2006adelya07.09.2022 08:18
-
ппсомо365725.02.2022 16:40
-
rzd105.02.2022 20:47
-
Тимур202025.04.2023 11:39
-
Айкаса17.06.2023 16:55
-
СергейПеро21.04.2023 17:09
-
5786232768530.09.2022 14:22