давно
Старший Модератор
31795
6196
07.12.2015, 19:54
общий
это ответ
Здравствуйте, Посетитель - 399097!
Смотрите код:
[code lang=pascal h=200]var
s:string;
a,b:integer;
begin
write('Enter string:');
readln(s);
a:=1;
while a<=length(s) do{в цикле пока меньше}
begin
if s[a]='+'then inc(b);{проверяем условие}
inc(a){следующий символ}
end;
write('Result:',b);{выводим результат}
end.
[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.