Помогите, пожалуйста!!! Написать программу на языке Паскаль, которая запрашивает у

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

Задать свой вопрос
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 agt;n then writeln ('Букв а больше')
else writeln ('Букв а не больше, чем букв н')
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт