Предмет: Информатика,
автор: Алино4кa
Составьте программу, которая считает в формуле, заданной с клавиатуры, количество плюсов и минусов. на паскале.
P.S формулы в программе быть не должно
Ответы
Автор ответа:
0
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.
Интересные вопросы
Предмет: Русский язык,
автор: tattigul1955
Предмет: Геометрия,
автор: Аноним
Предмет: Физика,
автор: Yarik245
Предмет: Химия,
автор: Vasyaaaaa
Предмет: Математика,
автор: balenare