M:=0; for i:=1 to length (a)do if copy (a,i,1)=(e) then m:=m+1 writin (m); Нужно место е поставить точку . Помогу пожалуйста очень нужно
M:=0;
for i:=1 to length (a)do
if copy (a,i,1)=(e) then
m:=m+1
writin (m);
Нужно место е поставить точку . Помогу пожалуйста очень нужно
Гость
Ответ(ы) на вопрос:
Гость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);
Не нашли ответ?
Похожие вопросы