Задать вопрос
4 марта, 15:36

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

+5
Ответы (1)
  1. 4 марта, 19:29
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Написать программу на Паскале, которая выведет на экран те строки из текстового файла, которые являются палиндромами. Имя файла вводить с ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы