m:=0;for i:=1 to length (a)doif copy (a,i,1)=(e) thenm:=m+1writin (m);Необходимо место е

M:=0;
for i:=1 to length (a)do
if copy (a,i,1)=(e) then
m:=m+1
writin (m);
Нужно место е поставить точку . Помогу пожалуйста очень необходимо

Задать свой вопрос
1 ответ
m:=0;
for i:=1 to length(a) do
 if copy (a,i,1)='.' then m:=m+1;
writeln(m);

А лучше так:
m:=0;
for i:=1 to length(a) do
 if a[i]='.' then m:=m+1;
writeln(m);
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

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

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт