ПРОЦЕДУРЫ И ФУНКЦИИ!!!***PASSCAL*****
ДАНЫ ДВЕ СТРОКИ. ВЫВЕСТИ ТУ СТРОКУ,ГДЕ БОЛЬШЕ ЗНАКОВ ПРЕПИНАНИЯ.

Предыдущий
вопрос Следующий
вопрос

Для решения этой задачи можно создать процедуру или функцию, которая будет принимать две строки в качестве аргументов и возвращать ту строку, в которой больше знаков препинания.

Пример процедуры на языке Pascal:

procedure CompareStrings(str1, str2: string);
var
count1, count2: integer;
begin
count1 := 0;
count2 := 0;
// Считаем количество знаков препинания в каждой строке
for i := 1 to Length(str1) do
begin
if str1[i] in ['.', ',', ';', ':', '!', '?'] then
count1 := count1 + 1;
end;
for i := 1 to Length(str2) do
begin
if str2[i] in ['.', ',', ';', ':', '!', '?'] then
count2 := count2 + 1;
end;
// Выводим строку с наибольшим количеством знаков препинания
if count1 > count2 then
writeln(str1)
else if count2 > count1 then
writeln(str2)
else
writeln('Количество знаков препинания в обеих строках одинаково.');
end;

Пример функции на языке Pascal:

function GetStringWithMorePunctuation(str1, str2: string): string;
var
count1, count2: integer;
begin
count1 := 0;
count2 := 0;
// Считаем количество знаков препинания в каждой строке
for i := 1 to Length(str1) do
begin
if str1[i] in ['.', ',', ';', ':', '!', '?'] then
count1 := count1 + 1;
end;
for i := 1 to Length(str2) do
begin
if str2[i] in ['.', ',', ';', ':', '!', '?'] then
count2 := count2 + 1;
end;
// Возвращаем строку с наибольшим количеством знаков препинания
if count1 > count2 then
GetStringWithMorePunctuation := str1
else if count2 > count1 then
GetStringWithMorePunctuation := str2
else
GetStringWithMorePunctuation := 'Количество знаков препинания в обеих строках одинаково.';
end;

После определения процедуры или функции, можно вызвать её и передать две строки для сравнения, чтобы вывести или вернуть строку с большим количеством знаков препинания.