Вопрос по информатике:
ПРОЦЕДУРЫ И ФУНКЦИИ!!!***PASSCAL*****
ДАНЫ ДВЕ СТРОКИ. ВЫВЕСТИ ТУ СТРОКУ,ГДЕ БОЛЬШЕ ЗНАКОВ ПРЕПИНАНИЯ.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 15.11.2016 04:11
- Информатика
- remove_red_eye 15645
- thumb_up 24
Ответы и объяснения 1
Внимание! Если программа не работает, обновите версию!
begin
var prep:=',!?.:;';
var s1:=ReadlnString('Строка 1:');
var n1:=s1.Where(c->c in prep).Count;
var s2:=ReadlnString('Строка 2:');
var n2:=s2.Where(c->c in prep).Count;
if n1>n2 then s1.Println
else
if n1
end.
То же, с ПОЛЬЗОВАТЕЛЬСКИМИ процедурами и функциями
function PCount(s:string):=s.Where(c->c in ',!?.:;').Count;
procedure PrintRes(n1,n2:integer; s1,s2:string);
begin
if n1>n2 then s1.Println
else
if n1
end;
begin
var s1:=ReadlnString('Строка 1:');
var s2:=ReadlnString('Строка 2:');
PrintRes(PCount(s1),PCount(s2),s1,s2)
end.
- 16.11.2016 08:31
- thumb_up 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.