Составьте программу, которая считает в формуле, заданной с клавиатуры, количество плюсов и минусов. на паскале.
P.S формулы в программе быть не должно
Составьте программу, которая считает в формуле, заданной с клавиатуры, количество плюсов и минусов. на паскале.
P.S формулы в программе быть не должно
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a:string;
i:integer;
c:boolean;
begin
readln(a);
repeat
if pos('+',a)<>0 then begin inc(i); delete(a,pos('+',a),1); end;
if pos('-',a)<>0 then begin inc(i); delete(a,pos('-',a),1); end;
if (pos('+',a)=0) and (pos('-',a)=0) then c:=true;
until c;
writeln(i);
end.