Нужно написать на Паскале=))
10-11 класс
|
Дан набор слов, разделенных точкой с запятой (;), который заканчивается двоеточием (:). Определить, сколько в нем слов, заканчивающихся буквой «а»
var s : string;
i, k : integer;
Begin
read(s);
for i:=1 to length(s)-1 do
if (s[i] = 'а') and ((s[i + 1] = ';') or (s[i + 1] = ':')) then
k := k + 1;
write(k);
End.
Какой именно паскаль?
Пофиг. Составил для абц.
var s:string;
var i,k:integer;
begin
read(s);
k:=0;
for i:=2 to length(s) do
begin
if (s[i]=';') or (s[i]=':') then if s[i-1]='а' then k:=k+1;
if s[i]=':' then break;
end;
write(k);
end.
Sergrif, ты бы в ответ это записал, а то решаешь, а кто-нибудь потом это за свое выдает)))) и кстати, я все для АБС пишу, смысл мне с другими заморачиваться? им надо, пусть и конвертируют)))
спасибо,очень выручили=))
Другие вопросы из категории
в восьмеричную систему число F3,7С16. Чему равно это число в десятичной
системе?
Читайте также
всех чисел, расположенных после первого нулевого элемента.
Написать на Паскале буду очень благодарен!!
доброй ночи, уважаемые программисты и успевающие в учебе студенты. помогите, пожалуйста, написать программу на C++ (в визуальной вкладке).
ВОТ ЗАДАНИЕ:
дано три переменные вещественного типа. если их значения упорядочены по возрастанию или убыванию, то удвоить их; иначе заменить значение каждой переменной на противоположное. вывести значения переменных.
я прикрепила несколько тестовых файлов (блокнот) в которых есть несколько вариантов решение этого задание (то есть коды программ), а вы скажите какой из них лучше всего подходит, а также скажите какие компоненты нужно кинуть на форму-дизайн (то есть какие кнопки, и что на них писать). в этих 3 файлов есть написанный код программы, нужно написать: на какие кнопки что писать и какой вариант решение больше подходит.
заранее огромное спасибо всем за помощь!!!