С клавиатуры вводится строка,содержащая русские и латинские буквы.Ороеделите,каких букв больше. PascalABC.NET
175
296
Ответы на вопрос:
for var i:= 1 to length(st) do
if st[i] in Rus
then inc(r)
else if st[i] in Eng
then inc(e);
if r > e then writeln('Русских букв больше')
else writeln('Английских букв больше');
begin
var s := ReadlnString('Введите текст:');
writeln(s.Where(v -> v in ['A'..'Z']).Count > s.Where(v -> v in ['А'..'Я']).Count ? 'Латинских букв больше' : 'Русских букв больше');
end.
if st[i] in Rus
then inc(r)
else if st[i] in Eng
then inc(e);
if r > e then writeln('Русских букв больше')
else writeln('Английских букв больше');
begin
var s := ReadlnString('Введите текст:');
writeln(s.Where(v -> v in ['A'..'Z']).Count > s.Where(v -> v in ['А'..'Я']).Count ? 'Латинских букв больше' : 'Русских букв больше');
end.
Популярно: Информатика
-
vkunney14.05.2021 08:57
-
Nashinvo01.05.2023 20:30
-
alexsey1320.01.2021 09:16
-
zheniaKk105.10.2022 12:16
-
фелицист24.04.2020 14:41
-
lesivarshavska19.08.2021 20:01
-
PolinaZinoviva20.07.2020 19:53
-
ваняшка21.06.2023 07:44
-
dymomc31.05.2021 23:41
-
B888806.03.2023 12:25