Pastebin
API
tools
faq
paste
Login
Sign up
SHARE
TWEET
nok nod
EWTD
Sep 17th, 2017
696
0
Never
Add comment
Not a member of Pastebin yet?
Sign Up
, it unlocks many cool features!
Pascal
0.18 KB
| None
|
0
0
raw
download
clone
embed
print
report
program
lol
;
var
a
,
b
,
c
,
f
,
d
:
integer
;
begin
readln
(
a
,
b
)
;
f
:
=
a
;
d
:
=
b
;
while
a<>b
do
begin
if
a>b
then
a
-=
b
else
b
-=
a
;
c
:
=
a
end
;
writeln
(
c
)
;
writeln
(
'NOK '
,
f
*
d
/
c
)
end
.
Advertisement
Add Comment
Please,
Sign In
to add comment
Public Pastes
✅ API Flaw Technique
CSS | 3 min ago | 0.65 KB
13.OOO IN 2DAY
CSS | 4 min ago | 0.65 KB
Big $$$ Strategy
CSS | 5 min ago | 0.65 KB
✅ API Flaw Technique
CSS | 1 hour ago | 0.65 KB
13.OOO IN 2DAY
CSS | 1 hour ago | 0.65 KB
13.OOO IN 2DAY
CSS | 1 hour ago | 0.65 KB
Big $$$ Strategy
CSS | 1 hour ago | 0.65 KB
✅ API Flaw Technique
CSS | 2 hours ago | 0.65 KB
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
Not a member of Pastebin yet?
Sign Up
, it unlocks many cool features!