Срочно нужно сделать лабу по Паскалю, вот задание:
Слова в строке отделены пробелами. Подсчитать количество слов, в которых буква 'а' встречается хотя бы 1 раз
помогите пожалуйста, я попробовал, но получилось не то, что нужно:
program glasnie;
uses crt;
var a,b:string;
i,j,n:integer;
begin
clrscr;
readln(a);
b:='a';
n:=0;
for i:=1 to length(a) do
for j:=1 to length(b) do
if b[j]=a[i] then n:=n+1;
writeln(n);
readkey;
end.
в результате пишет не количество слов, в которых встречается хотя бы одна буква "а", а сколько раз она встречается в словах вообще