Вопрос по информатике:
Pascal ABC - язык. Помогите пожалуйста.
Дана строка символов. Группы символов, разделенные пробелами(одним или несколькими) и не содержащие пробелов внутри себя, будем называть словом
а)подсчитать количество слов, которые заканчиваются на букву "а"
б) переставить местами первое и последнее слова
- 11.02.2018 12:56
- Информатика
- remove_red_eye 15246
- thumb_up 47
Ответы и объяснения 1
sum,i: Integer;
begin
writeln('Введите текст');
readln(k);
for i:=1 to length(k) do
if k[i]='а' then Inc(sum);
writeln('Кол-во: ',sum);
end.
б) Var l,gg,kk:string;
i:byte;
Begin
writeln('Введите текст');
readln(l);
gg:=Copy(l,1,Pos(' ',l)-1);
Delete(l,1,Pos(' ',l));
kk:='';
For i:=Length(l) downto 1 do
if l[i]' ' then kk:=l[i]+kk else break;
Delete(l,i,Length(kk));
l:=kk+' '+l+' '+gg;
writeln(l);
End.
- 12.02.2018 09:10
- thumb_up 31
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.