Регистрация
lotoskei
16.11.2020 17:54
Информатика
Есть ответ 👍

написать программу на
Заранее

235
428
Посмотреть ответы 1

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

lourln
lourln
4,5(62 оценок)
Немного другое решение var  s : string; i, j, n : integer;   f : boolean; begin    readln(s);     n : = length(s);     i : = 1; j : = n;     f : = false;         while (i < = j) do      begin        if(s[i] = s[j])          then f : = true          else f : = false;         i : = i + 1;         j : = j - 1;         if not f          then break;       end;         if f      then write('палиндром')      else write('не палиндром'); end.

Популярно: Информатика