1. (Char). Пользователь вводит текст, признаком конца которого является точка. Напечатать true, если буква «а» встречается чаще, чем буква «в», и напечатать false в противном случае.

Question

1. (Char). Пользователь вводит текст, признаком конца которого является точка. Напечатать true, если буква «а» встречается чаще, чем буква «в», и напечатать false в противном случае.

Гость

Ответ(ы) на вопрос:

Accepted Answer

var c:char; a,b:integer; begin c:='a';while (c <> '.') do begin if (c = 'а') then inc(a) else if (c = 'в') then inc(b); read(c); end; if (a > b) then write('true') else write('false'); end.