Программа на Паскале, используя массив, СРОЧНО, пожалуйста!!!!!
Program n1;
var
st: string;
i,k:integer;
begin
writeln(Введите строку); readln(st);
k:=0;
for i:=1 to length(st) do
if (st[i]=а) and ((st[i+1]= ) or (i=length(st))) then k:=k+1;
writeln(k);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
