Question

Помогите, пожалуйста!!!
Написать программу на языке Паскаль, которая запрашивает у пользователя строку текста и определяет, каких букв в данной строке больше - букв "а" или букв "н".
Если букв "а" больше, чем "н", программа должна вывести на экран фразу "Букв а больше". В противном случае программа должна вывести на экран фразу "Букв а не больше, чем букв н"
Пожалуйста, ни в коем случае, не используй const, Last, count, arr

Answer 1

var i,a,n: integer;
s: string;
begin
write ('Введите строку: ');
readln (s);
for i:=1 to length(s) do
begin
if (s[i]='а') or (s[i]='А') then a:=a+1;
if (s[i]='н') or (s[i]='Н') then n:=n+1
end;
if a>n then writeln ('Букв а больше')
else writeln ('Букв а не больше, чем букв н')
end.