Предмет: Информатика,
автор: LadyNadya
С клавиатуры вводится строка, содержащая русские и латинские буквы. Составьте программу, которая определяет, каких букв больше. Язык программирования Pascal
Ответы
Автор ответа:
1
Программа:
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.
Похожие вопросы
Предмет: Русский язык,
автор: grdnozvl
Предмет: Русский язык,
автор: Ainura7777
Предмет: Русский язык,
автор: b1xmod
Предмет: Химия,
автор: zemellana