Advertisement
gorbunova27

Untitled

May 4th, 2021
216
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.12 KB | None | 0 0
  1. var
  2.   c1,c2,c3,c4,c5,c6,c7 : char;
  3. begin
  4.   readln(c1,c2,c1,c2,c1,c2,c1);
  5.   writeln(c1+c2+c3+c4+c5+c6+c7-c2-c4-c6);
  6. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement