Question

IN LIMBAJUL PASCAL VA ROOGGG!!!!
TE ROG FOLOSESTE VARIABILE DE TIP INTEGER
Se da numarul natural n .
a) sa se transforme n metri in centimetri.
b) sa se transforme n kilograme in miligrame
c) cate tone intregi sant in n kilograme?
d) sa se transforme n ani in luni , saptamani, zile


Se da numarul natural n. Sa se calculeze cate ore , minute secunde sant in :
a) n zile (ozi=24 ore);
b)n saptamani;
c)luna mai.

Answer 1

program conversii;

var n, m, cm, mlgr, tone,

   luni, sap, zile, ore, min, sec: longint;

begin

 write('introdu nr. natural n= '); read(n);

 writeln(' Transformari in diferite unitati:');

 writeln('a) ',n,'m = ',n*100, 'cm');

 writeln('b) ',n,'kg = ',n*1000000,'mlgr');

 writeln('c) ',n,'kg = ',n div 1000,'t');

 writeln('d) ',n,'ani = ',n*12,'luni ',

           n*12*4,'saptamani ',n*365,'zile');

 writeln;

 writeln(n,'zile = ',n*24,'ore ',n*24*60,'min ',n*24*60*60,'sec');

 writeln(n,'sapt. = ',n*24*7,'ore ',n*24*60*7,'min ',n*24*60*60*7,'sec');

 writeln('Luna mai: ', 24*31,'ore ',24*31*60,'min ',24*60*60,'sec');

end.