summaryrefslogtreecommitdiff
path: root/1553/CH2/EX2.17/2Ex17.sce
blob: b8cb26eaf704742b1a75f0d101180fd75bb52967 (plain)
1
2
3
4
5
6
7
8
9
10
11
//chapter 2 Ex 17
clc;
clear;
close;
n1=12; n2=15; n3=18; n4=27;
n=lcm(int32([n1,n2,n3,n4]));
Lcm=double(n);
large=9999; //largest 4 digit number
remainder=modulo(large,Lcm);
largest_num=large-remainder;
mprintf("The largest such number is %d",largest_num);