Решите на паскале недавно школьник петя придумал классную идею для своего стартапа. идея состоит в том, чтобы написать программу, которая определяет эмоциональный оттенок сообщений пользователей из всем известной социальной сети. петя считает, что думать над качественным решением нет смысла — ведь приложение нужно как можно скорее выбросить на рынок, пока этого не сделали конкуренты. поэтому в первой версии петя собирается использовать следующий алгоритм: • сначала в сообщении нужно посчитать количество символов «)», «(», «! » и «.». • если в сообщении больше всего символов «)» — значит автору сообщения весело, и программа должна вывести «funny». • если в сообщении больше всего символов «(» — значит автору сообщения грустно, и програм- ма должна вывести «sad». • если в сообщении больше всего символов «! » — значит автор сообщения раздражен, и про- грамма должна вывести «angry». • если в сообщении больше всего символов «.» — значит перед нами какое-то глубокомысленное сообщение с большим числом многоточий, и программа должна вывести «deep». • если каких-либо наиболее число встречающихся символов (из перечисленных выше) поровну — то тогда эмоция сообщения не понятна и программа должны вывести «unclear».

161

442

Посмотреть ответы 2

Ответы на вопрос:

VPVolkov03

Информатика

4,5(25 оценок)

Program var s: string; a: array[1..4] of integer; i: integer; begin read(s); for i: =1 to 4 do a[i]: =0; for i: =0 to length(s) do begin if s[i]=')' then inc(a[1]); if s[i]='(' then inc(a[2]); if s[i]='! ' then inc(a[3]); if s[i]='.' then inc(a[4]); end; if(a[1]> a[2])and(a[1]> a[3])and(a[1]> a[4]) then write('funny')else if(a[2]> a[1])and(a[2]> a[3])and(a[2]> a[4]) then write('sad') else if(a[3]> a[2])and(a[3]> a[1])and(a[3]> a[4]) then write('angry') else if(a[4]> a[2])and(a[4]> a[3])and(a[4]> a[1]) then write('deep') else write('unclear'); end.