PascalABC.Net взял символ английская a если что заменишь
var s : string; i,l,k : integer; r : real; begin readln (s); l := Length (s); for i := 1 to l do if s[i] = 'a' then k := k + 1; r := trunc(k/l * 100); writeln (r,'%'); end.
Хранение информации Информация, закодированная с естественных и формальных языков, а также информация в форме зрительных и звуковых образов хранится в памяти человека. Однако для долговременного хранения информации, ее накопления и передачи из поколения в поколение используются носители информации.
Материальная природа носителей информации может быть различной: молекулы ДНК, которые хранят генетическую информацию; бумага, на которой хранятся тексты и изображения; магнитная лента, на которой хранится звуковая информация; фото- и кинопленки, на которых хранится графическая информация; микросхемы памяти, магнитные и лазерные диски, на которых хранятся программы и данные в компьютере, и так далее.
взял символ английская a
если что заменишь
var
s : string;
i,l,k : integer;
r : real;
begin
readln (s);
l := Length (s);
for i := 1 to l do
if s[i] = 'a' then
k := k + 1;
r := trunc(k/l * 100);
writeln (r,'%');
end.