Вопрос по информатике:
напишите пожалуйста программу в паскале! дано предложение.вывести на экран слова, начинающиеся и оканчивающиеся на одну и ту же букву.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 25.09.2015 21:35
- Информатика
- remove_red_eye 5104
- thumb_up 30
Ответы и объяснения 1
var a,t:string; b:array[1..100]of string; j,i,k,n:integer; begin writeln('vvedite predlojenie'); readln(a); a:=' '+a; for i:=1 to length(a) do if a[i]=' 'then inc(k) else b[k]:=b[k]+a[i]; writeln('slova s odinakovymi 1 i posledney bukvoy'); for i:=1 to k do begin t:=b[i]; if t[1]=t[length(t)] then write(t,' '); end; writeln; writeln ('slova s 3 e'); for i:=1 to k do begin n:=0; t:=b[i]; for j:=1 to length(t) do if t[j]='e' then inc(n); if n=3 then write (t,' '); end; writeln; writeln('slova s bukvoy o'); for i:=1 to k do begin n:=0; t:=b[i]; for j:=1 to length(t) do if t[j]='o' then n:=1; if n=1 then write (t,' '); end; end.
- 26.09.2015 02:00
- thumb_up 4
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.