Question

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

Answer 1

===== 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.

Answer 2

Конечно, вот программа на языке Паскаль, которая позволяет определить, какие знаки препинания ("." (точка), "," (запятая) и ";" (точка с запятой)) в тексте больше: ```pascal program CountPunctuation; var text: string; dotCount, commaCount, semicolonCount: integer; i: integer; begin dotCount := 0; commaCount := 0; semicolonCount := 0; writeln('Введите текст: '); readln(text); for i := 1 to length(text) do begin case text[i] of '.': dotCount := dotCount + 1; ',': commaCount := commaCount + 1; ';': semicolonCount := semicolonCount + 1; end; end; writeln('Количество точек: ', dotCount); writeln('Количество запятых: ', commaCount); writeln('Количество точек с запятой: ', semicolonCount); if (dotCount > commaCount) and (dotCount > semicolonCount) then writeln('Больше всего точек в тексте.') else if (commaCount > dotCount) and (commaCount > semicolonCount) then writeln('Больше всего запятых в тексте.') else if (semicolonCount > dotCount) and (semicolonCount > commaCount) then writeln('Больше всего точек с запятой в тексте.') else writeln('Количество всех знаков препинания одинаково.'); readln; end. ``` Эта программа сначала запрашивает ввод текста с клавиатуры, затем считает количество точек, запятых и точек с запятой в тексте. После этого программа определяет, какой из знаков препинания встречается чаще всего и выводит соответствующее сообщение.