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

Question

70

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

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

ответить

в избранное ссылка

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

alexkuzmich · Accepted Answer

68

alexkuzmich

27 февраля 2023

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: