program mult3V2

informatica

program mult3V2;

var pc,sc,dario,tc,resti,n,sumcheck:integer;

BEGIN

writeln('Dimmi un numero minore di 1000');

readln(n);

if n > 1000 then 313h77d

BEGIN

writeln('A casa mia ',n,' e'' piu'' grande di 1000.');

writeln(' Dimmene un altro MINORE DI 1000');

readln(n);

pc:=n div 100;

resti:=n mod 100;

sc:=resti div 10;

tc:=resti mod 10;

sumcheck:=pc + sc + tc;

if sumcheck mod 3 = 0 then writeln(n,' e'' multiplo di 3! =)')

else writeln(n, ' non e'' multiplo di 3... =(');

END

else

BEGIN

pc:=n div 100;

resti:=n mod 100;

sc:=resti div 10;

tc:=resti mod 10;

sumcheck:=pc + sc + tc;

if sumcheck mod 3 = 0 then writeln(n,' e'' multiplo di 3! =)')

else writeln(n, ' non e'' multiplo di 3... =(');

END;

readln

END.