From d2ca9a68bb04a8c4d5c54b4506e359f9e2e2db50 Mon Sep 17 00:00:00 2001 From: antranigv Date: Thu, 8 Jun 2017 21:36:44 +0400 Subject: [PATCH] better ifelse --- ifelse/IfElse.Mod | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/ifelse/IfElse.Mod b/ifelse/IfElse.Mod index ca72a36..48bc26b 100644 --- a/ifelse/IfElse.Mod +++ b/ifelse/IfElse.Mod @@ -7,25 +7,25 @@ VAR n, m : INTEGER; BEGIN - IF 8 MOD 4 = 0 - THEN - Out.String("8 is divisible by 4"); Out.Ln; + n := 8; m := 4; + + IF n MOD m = 0 THEN + Out.Int(n,0); Out.String(" is divisible by "); Out.Int(m,0); Out.Ln; END; n := 7; m := 6; - IF n * m = 42 - THEN - Out.String("7 times 6 equals 42"); Out.Ln; + IF n * m = 42 THEN + Out.Int(n,0); Out.String(" times "); Out.Int(m,0); Out.String(" equals 42"); Out.Ln; END; - IF n # m THEN Out.String("7 does not equal 6"); Out.Ln; END; + IF n # m THEN Out.Int(n,0); Out.String(" does not equal "); Out.Int(m,0); Out.Ln; END; IF ODD(n) THEN - Out.String("7 is odd"); Out.Ln; + Out.Int(n,0); Out.String(" is odd"); Out.Ln; ELSE - Out.String("7 is even"); Out.Ln; + Out.Int(n,0); Out.String(" is even"); Out.Ln; END; n := 9;