Составить программу которая складывает введенные числа (3 числа) program z1; var s:string...

Question

Составить программу которая складывает введенные числа (3 числа)
program z1;
var s:string ; a,b,c,p,r,t,y,z,x,u,o: integer;
begin
writeln ('ввежите пример ');
readln (s);
p:=pos('+',s);
a := val (copy(s,1,p-1),a,r);
delete (s,1,p);
t:=pos('+',s);
x:=val (copy(s,1,t-1),y,r);
delete (s,1,t);
z:= val (copy(s,1,z-1),u,r);
o:=a+t+x;
writeln ('сумма равна',o);
end.

вот что получилось но чет не робит исправьте кто может пожалуйста

Comments

нужен ли тип string?

---

да

---

хорошо щас напишем

---

точного задания у вас нет?

---

числа через пробел вводятся?

---

все подряд например 33+66+52

---

хорошо, понятно

---

вообщем ещё не доделал вот промежуточный результат program z1;var s,s1:string ; a,b,c,p,r,t,y,z,x,u,o,i,n: integer;beginwriteln ('введите пример ');read(s);b:=0;n:=2;for i:=1 to n do beginreadln (s);p:=pos('+',s);s1:=copy(s,1,p-1);val(s1,a,e);b:=b+a;delete (s,1,p);if p=0 then i:=n-1 else n:=i+1;end;writeln ('сумма равна',b);end.

---

program z1;var s,s1:string ; a,b,c,p,r,t,y,z,x,u,o,i,n: integer;beginwriteln ('введите пример ');read(s);b:=0;n:=2;for i:=1 to n do beginreadln (s);p:=pos('+',s);if p=0 then s1:=s else s1:=copy(s,1,p-1);val(s1,a,e);b:=b+a;delete (s,1,p);val(s,x,e);if p=0 then b:=b+x; if p=0 then i:=n else n:=i+1;end;writeln ('сумма равна',b);end. вот что я сделал, но программа не работает и у меня тоже, не знаю в чём причина

Answer 1

Program z1;

var s:string ;
a,b,c,p,r,t,y,z,x,u,o: integer;

begin

writeln ('введите пример ');

readln (s);

p:=pos('+',s);


val (copy(s,1,p-1),a,r);
delete (s,1,p);
p:=pos('+',s);
val (copy(s,1,p-1),y,r);
delete (s,1,p);
val (s,u,r);
o:=a+y+u;
writeln ('сумма равна',o);
end.