Вопрос ученика
Составте программу на языке программирования паскаль:Подсчитать количество букв »а» в заданном тексте
Ответ учителя
var n,i:integer;
Begin
read(n);
for i:= 2 to n-1 do
if n mod i = 0 then writeln(‘No’);
End.
var n,i:integer;
s:string;
Begin
read(s);
for i:= 1 to length(s) do
if s[i]=»a» then n:=n+1;
writeln(n);
End.
Скорее всего так