составить программу,которая считает в формуле,заданной с клавиатуры, колличество плюсов и минусов (программа в паскале)
Answers & Comments
ARGENT111GENT
Var i,col:integer; s:string; begin readln(s); col:=0; for i:=1 to length(s) do begin if (s[i]='+') or (s[i]='-') then col:=col+1; end; writeln('Количество плюсов и минусов: ',col); end.
Answers & Comments
s:string;
begin
readln(s);
col:=0;
for i:=1 to length(s) do
begin
if (s[i]='+') or (s[i]='-') then
col:=col+1;
end;
writeln('Количество плюсов и минусов: ',col);
end.