Ответы на вопрос:
var s: string; i: integer; begin write('s = '); readln(s); for i : = 1 to length(s) do if s[i] < > s[length(s) - i + 1] then begin writeln('no'); readln; exit; end; writeln('yes'); readln; end.
//вторая программа
var s: string; i, counta, counte: integer; begin counta : = 0; counte : = 0; write('s = '); readln(s); for i : = 1 to length(s) do if s[i] = 'a' then inc(counta) else if s[i] = 'e' then inc(counte); if counta > counte then writeln('a > e') else if counta < counte then writeln('a < e') else writeln('a = e'); readln; end.
Популярно: Информатика
-
artumko0428.07.2022 07:43
-
edynorozhok30.08.2021 17:09
-
hdhdhhxhxu14.05.2022 18:45
-
nyatteloiv12.04.2020 11:40
-
vikaapostol2806.05.2021 08:09
-
ilyavital09.11.2022 03:57
-
оооо14007.01.2020 06:33
-
Дима06115.06.2022 10:10
-
killir9914.04.2022 08:51
-
vladukhtin228024.02.2022 07:43