Консультация № 188299
02.12.2015, 16:28
0.00 руб.
0 2 1
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Дано натуральное число n и символы s1, s2, …, sn. Выяснить, каких символов больше + или *. (BPascal)

Обсуждение

давно
Старший Модератор
31795
6196
03.12.2015, 19:53
общий
Адресаты:
Цитата: Посетитель - 399097
число n и символы s1, s2, …, sn

Это строка длиною n?
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
Старший Модератор
31795
6196
07.12.2015, 20:05
общий
это ответ
Здравствуйте, Посетитель - 399097!

Смотрите код:
[code lang=pascal h=200]var
s:string;
a,b,c:integer;
begin
write('Enter string:');
readln(s);
a:=1;
while a<=length(s) do{пока меньше}
begin
if s[a]='+'then inc(b);{считаем плюсы}
if s[a]='*'then inc(c);{считаем звездочки}
inc(a)
end;
if b>c then write('+',b:3){выводим результат}
else
if b=c then write('=',b:3)
else write('*',c:3);
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа