Помогите написать программу в pascal.Дан набор слов, разделенных точкой с запятой (;). Набор заканчивается двоеточием (:). Определить, сколько в нем слов, заканчивающихся буквой а.
Помогите написать программу в pascal.Дан набор слов, разделенных точкой с запятой (;). Набор заканчивается двоеточием (:). Определить, сколько в нем слов, заканчивающихся буквой а.
Гость
Ответ(ы) на вопрос:
Гостьvar
str: string;
i : byte;
begin
readln(str);
str := str.Replace(':', '');
foreach c: string in str.Split(';') do
if (c[c.Length] in ['a', 'а']) then //не уточнено, какого алфавита "а"
i += 1;
writeln(i);
end.
Не нашли ответ?
Похожие вопросы