Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program zadacha_7;
- uses crt;
- var s,s1:string;
- a,b,k,sum:integer;
- begin
- write('Введите строку: ');
- read(s);
- s1 := copy(s,1,pos('+',s)-1);
- delete(s,1,pos('+',s));
- val(s1,a,k);
- val(s,b,k);
- sum := a + b;
- writeln(sum);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement