Ответы и объяснения

2013-04-12T18:09:10+04:00

2)

 

const n = 5;
var
  ch: char;
  i, ct: integer;
begin
  for i := 1 to n do begin
    readln(ch);
    if(ch = 'а') or (ch = 'А') then inc(ct);
  end;
  writeln('Букв "а": ', ct);
end.

 

3 так же решается