0…»'>
70

Дана символьная строка всюду букву А поменять на букву В

16 марта 2023

Дана символьная строка всюду букву А поменять на букву В

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



68

var a: string; i: integer; beginreadln (a); a: =a+'; while length (a) >0 do beginif a[1]='a' then inc (i); delete (a,1,pos (',a); end; writeln (i); end.

Знаете ответ?


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