выполнить на компьютере программу которая предлагае ввести строку s и находит количество букв а в строке

Question

Фёкла

23 декабря, 17:44

+3

Ответы (1)

Знаете ответ?

Владимирушка · Answer 1

Uses crt;

var s:string;

k, i:integer;

begin

readln (s) ;

for i:=1 to length (s) do

if s[i]='a' then inc (k) ;

writeln (k) ;

end.