дано натуральное число...

[Serge_Bliznykov]

Сообщение от Poma][a

Серж, а при исходных данных в таком виде :

1
+

Твоя программа выдаст, что знаков одинаково..

Это почему это?..
я чего-то не понимаю?! выложу код в обычном виде для удобства тестирования форумачанами:

var 
  s : string;
  N : integer;
  i : integer;
  CntPlus, CntMulti : integer; {счётчики для знаков}
begin
  WriteLn('Введите строку: ');
  Readln(s);
  N :=  Length(s);

  CntPlus := 0;
  CntMulti := 0;
  for i:=1 to N do begin
      if s[i]='+' then Inc(CntPlus)
      else
         if s[i]='*' then Inc(CntMulti)
  end;

  if CntPlus = CntMulti then WriteLn('одинаковое количество знаков + и *')
  else
    if CntPlus > CntMulti
       then WriteLn('знаков + больше')
       else WriteLn('знаков * больше');
 Readln
end.

[Poma][a]

Это почему это?..

Всё примитивно и просто, всё поддается словам (c)

Дано натуральное число n и символы s1, s2, …, sn. Выяснить, каких символов больше + или *.

Твой вариант проигнорирует N. Если N будет с символами в одной строчке - то всё хорошо.. А если нет, то не очень..

[Serge_Bliznykov]

Сообщение от fara2105

А Я не могу((( Нарисуй пожалуста)))))

да пожалуйста (рисовал не сам, слил картинку через DiamFC, благо размер код это позволяет!

[Serge_Bliznykov]

Сообщение от Poma][a

[I]Твой вариант проигнорирует N. Если N будет с символами в одной строчке - то всё хорошо.. А если нет, то не очень..

ни в коем разе. Мой вариант предполагает, что размер N определяется программой автоматически, исходя из количества введённых знаков S1... SN

[Poma][a]

Мой вариант предполагает, что размер N определяется программой автоматически, исходя из количества введённых знаков S1... SN

- Мне нужна программа для суммирования 2-х чисел, записанных в файле.
- Хорошо. Вот программа, воскрешающая Вангу, которая узнает укажет числа в файле, зашифрует их и передаст обратно в программу. Далее, т.к. Ваши числа могут быть больше 10, программа получит доступ к суперкомпьютеру "Ломоносов" и уже он сложит Ваши 2 числа. Вам подходит? Еще могу блок-схемку нарисовать.