53

В Турбо Паскале У введеному рядку підрахувати кількість слів…

velsem 17 марта 2023

В Турбо Паскале У введеному рядку підрахувати кількість слів, що однаково починаються ізакінчуються

категория: информатика

93

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; readlnend.

пользователи выбрали этот ответ лучшим

Знаете другой ответ?
Другие вопросы по информатике

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...