Олимпиадный тренинг

Задача . 880


Задача

Темы:

Запишите, что будет на экране после выполнения следующей программы?

var 
  s: string; 
  i, k: integer;
begin
  s:= 'абракадабра';
  k:= 0;  
  for i:= 1 to length(s) do 
    if s[i] = 'а'
      then k:= k + 1;
  writeln (k)
end.

time 1000 ms
memory 32 Mb
Правила оформления программ и список ошибок при автоматической проверке задач

Статистика успешных решений по компиляторам
Комментарий учителя