Вопрос № 103231: Добрый день!
Подскажите, пожалуйста, как написать такую програмку:
Вводится текст, состоящий из нескольких строк. Найти:строки, оканчивающиеся на русскую букву;...
Вопрос № 103.231
Добрый день!
Подскажите, пожалуйста, как написать такую програмку:
Вводится текст, состоящий из нескольких строк. Найти:строки, оканчивающиеся на русскую букву;
Отвечает: kopfschwarz
Здравствуйте, Терешко Алексей!
Предположим, вы вводите десять строк.
var m:array [1..10] of string;
i:integer;
begin
for i:=1 to 10 do
readln(m[i]);
for i:=1 to 10 do
if m[i][Length(m[i])] in ['А'..'Я','Ё','а'..'я','ё']
then writeln(m[i])
end.
Length(m[i]) - длина i-о строки и, соответственно номер последнего символа.
m[i][Length(m[i])] - сам последний символ.
--------- Please, don't say you're sorry & Express yourself, don't repress yourself!
Ответ отправил: kopfschwarz (статус: Студент)
Ответ отправлен: 24.09.2007, 16:41 Оценка за ответ: 5 Комментарий оценки: Спасиб!.
Отвечает: Артём1983
Здравствуйте, Терешко Алексей!
Данную задачу я решил с помощью множест. Не знаю подходит ли вам такой вариант решения. Код задачи смотри в приложении
Приложение:
Ответ отправил: Артём1983 (статус: 3-ий класс)
Ответ отправлен: 24.09.2007, 20:40