В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
gulkogulkovno
gulkogulkovno
15.05.2023 00:52 •  Информатика

20 ! в pascal доделать программу, чтобы она работала: типо дописать begin, : readln(s); l: = length(s); m: = trunc(l/2); for i: = 1 to m if s[i]< > s[l+1-i] then k: =1; if k=1 then writeln(‘не палиндром’) else writeln(‘палиндром’);

Показать ответ
Ответ:
kotnapnewme123p04tz4
kotnapnewme123p04tz4
08.10.2020 16:47
Var
  s:string;
  i,l,m,k:integer;
 
begin
  Readln(s);
  l:=Length(s);
  m:=l div 2;
  for i:=1 to m do
    if s[i]<>s[l+1-i] then k:=1;
  if k=1 then Writeln('не палиндром')
  else Writeln('палиндром')
end.

20 ! в pascal доделать программу, чтобы она работала: типо дописать begin, : readln(s); l: = length(
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота