С клавиатуры вводится строка, содержащая русские и латинские буквы. Составьте программу, которая определяет, каких букв больше. Программа для языка Pascal
Ответы
Ответ дал:
0
Ответ:
Pascal:
var
str: string;
i, ENG, RUS: byte;
begin
writeln('Введите строку:'); readln(str);
for i := 1 to length(str) do
if upcase(str[i]) in ['A'..'Z'] then inc(ENG)
else if upcase(str[i]) in ['А'..'Я'] then inc(RUS);
if RUS > ENG then writeln('Русских букв больше на ', RUS - ENG)
else if ENG > RUS then write('Латинских букв больше на ', ENG - RUS)
else writeln('Одинаковое кол-во букв: ', RUS);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад