Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Задача №1 Составить программу проверяющую является ли слово "перевертышем"

Задача №2 Подсчитать каких букв в предложении больше "а" или "е"

все в паскале

Ответ оставил Гость

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.