Advertisement
Spicke

zadacha_7

Jun 14th, 2018
109
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.26 KB | None | 0 0
  1. program zadacha_7;
  2. uses crt;
  3. var s,s1:string;
  4.     a,b,k,sum:integer;
  5. begin
  6.   write('Введите строку: ');
  7.   read(s);
  8.   s1 := copy(s,1,pos('+',s)-1);
  9.   delete(s,1,pos('+',s));
  10.   val(s1,a,k);
  11.   val(s,b,k);
  12.   sum := a + b;
  13.   writeln(sum);
  14. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement