Запишите, что будет на экране после выполнения следующей программы?
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.
1000 ms 32 Mb Правила оформления программ и список ошибок при автоматической проверке задач