Jump to content

Recommended Posts

Posted

Ξέρω ότι είναι παλιό...απλώς ο φίλος μας το τοποθέτησε στην σωστή θέση.

Posted

program hlikia;

uses crt;
var
ypol,tr_etos,tr_minas,tr_mera,gen_etos,gen_minas,gen_mera,il_eth,il_mines,il_imeres:integer;
syn_trexon,syn_gen,syn:LongInt;
BEGIN
write('Δώσε το τρέχων έτος, μήνα, ημέρα: ');
readln(tr_etos,tr_minas,tr_mera);
write('Δώσε το έτος, μήνα, ημέρα που γεννήθηκες: ');
readln(gen_etos,gen_minas,gen_mera);
syn_trexon:=(365*tr_etos)+(30*(tr_minas-1))+tr_mera;
syn_gen:=(365*gen_etos)+(30*(gen_minas-1))+gen_mera;
syn:=syn_trexon-syn_gen;
il_eth:=syn div 365;
ypol:=syn mod 365;
il_mines:=ypol div 30;
il_imeres:=ypol mod 30;
writeln('Ετών: ',il_eth,' Μηνών: ',il_mines,' Ημερών: ',il_imeres);
END.

 

 

Σύμφωνα με αυτό, είμαι:

Ετών: 17 Μηνών: 2 Ημερών: 16

Guest
This topic is now closed to further replies.



×
×
  • Create New...

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disabled AdBlock