Информатика, опубликовано 2018-08-22 20:22:55 by Гость

Задача №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.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.