С клавиатуры вводится строка, содержащая русские и латинские буквы. Составьте программу, которая определяет, каких букв больше. Язык программирования: Pascal.

Нужно пройти по всем символам строки и отдельно посчитать русские и латинские буквы. Затем сравнить эти два количества.

Программа на Pascal:

program CountLetters;
var
s: string;
i, rus, lat: integer;
c: char;
begin
readln(s);
rus := 0;
lat := 0;

for i := 1 to length(s) do
begin
c := s[i];

if ((c >= 'A') and (c <= 'Z')) or ((c >= 'a') and (c <= 'z')) then
lat := lat + 1
else if ((c >= 'А') and (c <= 'Я')) or ((c >= 'а') and (c <= 'я')) or (c = 'Ё') or (c = 'ё') then
rus := rus + 1;
end;

if rus > lat then
writeln('Русских букв больше')
else if lat > rus then
writeln('Латинских букв больше')
else
writeln('Русских и латинских букв поровну');
end.

Переменная rus хранит количество русских букв, а lat — количество латинских.

0 0 Пожаловаться