Lista1Ex15

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

prog Lista1Ex15
int data, dia, mes, ano;
string dd, mm;
data <- 13081962;
	ano <- data % 10000;
	mes <- (data % 1000000) div 10000;
		se (mes <10) 
			{mm <- "0";}
		senao
			{mm <- "";}
	dia <- data div 1000000;
		se (dia < 10) 
			{dd <- "0";}
		senao
			{dd <- "";}
imprima "Data: ", dd, dia, "/", mm, mes, "/", ano, "\n";
fimprog