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

Дан текстовый файл. вывести на экран самую длинную строку из файла.через паскале.

Показать ответ
Ответ:
MaxonA
MaxonA
02.10.2020 04:22
var  
f: text;
  s: string;
  max: string := '';  
begin   //в папке с программой должен быть файл "input.txt"
  if FileExists('input.txt') then   begin     Assign(f, 'input.txt');     Reset(f);     while not Eof(f) do     begin       Readln(f, s);       if Length(s) > Length(max) then         max := s;     end;     Writeln('Самая длинная строка в файле: ');     Writeln(max);     Close(f);   end   else     Writeln('Файл не найден'); end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота