Вопрос по информатике:
в Турбо Паскале
У введеному рядку підрахувати кількість слів, що однаково починаються і закінчуються
- 19.07.2018 05:39
- Информатика
- remove_red_eye 715
- thumb_up 89
Ответы и объяснения 1
var
count:integer;
c,ch:char;
begin
writeln('введите символ ');
readln(c);
writeln('введите строку ');
count:=0;
repeat
read(ch);
if ch=c then inc(count);
until ord(ch)=13;
writeln('кол-во повторений ',count);
readln;
readln
end.
- 19.07.2018 21:23
- thumb_up 14
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.