Блог для маленьких школьников и их родителей
ШколаЛа

Напишите программу, которая определяет каких знаков препинания в тексте больше: «.»,. «,», «;». (На…

Автор:
Предмет: Информатика
Уровень: 5 - 9 класс

Напишите программу, которая определяет каких знаков препинания в тексте больше: «.»,. «,», «;».
(На Паскаль)

Ответов к вопросу: 1
  • arinagracheva
    06.08.2024 | 00:16

    ===== PascalABC.NET =====
    begin
     var D := Dict((‘.’,0),(‘,’,0),(‘;’,0));
     var s := ReadlnString.Where(p -> p in [‘.’, ‘,’, ‘;’]);
     foreach var c in s do
       D[c] += 1;
     var a := D.OrderByDescending(p -> p.Value).ToArray;
     if a[0].Value > a[1].Value then
       Write(‘Разделителей «‘, a[0].Key, ‘» больше’)
     else if a[1].Value > a[2].Value then
       Write(‘Разделителей «‘, a[0].Key, ‘» и «‘,
             a[1].Key, ‘» больше’)
     else
       Write(‘Разделителей «.», «,», и «;» поровну’)
    end.

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.