SHARE
TWEET

one

allekco Oct 20th, 2019 81 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var
  2.     k, i, number, decytok, answer : integer;
  3. begin
  4.     readln (k);
  5.     decytok := 10 + ((k - 1) div 2);
  6.     if (k mod 2 = 0) then begin
  7.         answer := decytok mod 10;
  8.     end
  9.     else
  10.     begin
  11.         answer := decytok div 10;
  12.     end;
  13.     writeln (answer);
  14. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top