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

Написать программу на паскале,которая выведет на экран те строки из текстового файла, которые являются палиндромами. имя файла вводить с клавиатуры.

Показать ответ
Ответ:
12рок1
12рок1
22.07.2020 09:00
Program proga_25_3;
var
 A: text;
s,p : string; 
i:integer;
 f:boolean;
begin 
  write('Введите имя и путь к файлу   '); 
  read(p); 
 assign(A, p); 
 reset(A);   
while not eof(A) do   
 begin       
 readln(A,s);                  
for i:=1 to length(s) div 2 do       
  if s[i]=s[length(s)-i+1] then          
 f:=true        
 else         
begin       
 f:=false;       
 break;       
 end;     
 if f then      
  writeln (S);   
 end;   
 close(A);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота