В текстовом файле определить, заканчивается ли последнее слово в файле буквой "i" - Turbo Pascal
Формулировка задачи:
Добрый день, помогите, пожалуйста, составить программу:
Дан текстовый файл,в котором написана последовательность латинских слов,между ними пробел.Определить заканчиваются ли последнее слово в файле буквой <i>.
Решение задачи: «В текстовом файле определить, заканчивается ли последнее слово в файле буквой "i"»
textual
Листинг программы
var
f:text;
c:char;
begin
assign(f,'input.txt');
reset(f);
while not eof(f) do begin
while not eoln(f) do read(f,c);
readln(f);
end;
close(f);
if c='i' then writeln('Yes') else writeln('No');
readln;
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д