Всі умови | Умова: Дано натуральне число n, символи s1, ..., sn. Підрахувати загальне число входжень символів +, -, * в послідовність s1, ..., sn.
(С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №252)
program Pr252_2;
var
s : String;
i, z : integer;
begin
write('Input string: ');
readln(s);
z := 0;
for i := 1 to length(s) do
begin
if (s[i] = '-') or (s[i] = '+') or (s[i] = '*') then
inc(z);
end;
writeln(z);
readln;
end.