№1составить программу проверяющую является ли слово "перевертышем" №2подсчитать каких букв в предложении больше "а" или "е" все в паскале

205

464

Посмотреть ответы 2

Ответы на вопрос:

salatinabbasova

Информатика

4,6(56 оценок)

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.