Программа на Паскале, используя массив, СРОЧНО, пожалуйста!!!!!
Answers & Comments
ЧерныйГолубь
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.
Answers & Comments
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.