Department of Mathematics and Computer Science

www.univ-soukahras.dz/en/dept/mi

écrire un programe

-3 votes	écrire un programe pascal intitulé jours qui saisit le numéro du mois et affiche le nombre de jours de ce mois.pour le cas de février ,on lit l'anné,si l'anné est bissextille ,le nombre de jours est 29,sinon c'est 28 jours.
	Asked on 10:23, Saturday 11 Nov 2017 By rayene ridane (228 points) In Algorithmique et structure de données 1

answers (9)

Answer (1)

-1 votes	;Algorithme jours ;Var fevrier:entier Debut ;('ecrire(donnez moi le nombre de jour de fevrier ;(Lire(fevrier Si fevrier=29 alors ('Ecrire('lanne est bissextille Fin de si Si fevrier=28 alors ('Ecrire(lanna ne pas bissextille Fin de si .fin
	Answered on 10:57, Saturday 11 Nov 2017 by Amina Monebbah (56 points) In Algorithmique et structure de données 1

Answer (2)

0 votes	program mounth; var year,mounth:integer; begin writeln('enter the year and the mounth : yyyy/mm '); read(year,mounth); if ( mounth mod 2 ) <> 0 then writeln(' there is 31 day on this mounth ') else if mounth=2 then if (year mod 4 ) = 0 then writeln('this mounth has 29 days ') else writeln('this mounth has 28 days ') else writeln('this mounth has 30 days'); end.
	Answered on 11:31, Saturday 11 Nov 2017 by abderrahmane brinis (136 points) In Algorithmique et structure de données 1

Answer (3)

-1 votes	bonjour amina désolé mais la declaration est faux reprend-la.
	Answered on 12:02, Saturday 11 Nov 2017 by rayene ridane (228 points) In Algorithmique et structure de données 1

Answer (4)

0 votes	Algorithm mois; Var mois,k,anne:entier Debut Lire(mois,,anne); Si mois mod 3=0 alors ('Ecrire('30 jour Sinon ('Ecrire('31jour Fsi ;K:= anne mod 4 Si k<>0 alors ;('Ecrire('fevrier contient 29 jour Sinon ;('ecrire('fevrier contient 28 jour Fsi .fin
	Answered on 13:03, Saturday 11 Nov 2017 by Amina Monebbah (56 points) In Algorithmique et structure de données 1

Answer (5)

0 votes	program date; uses crt; var y,m:integer; begin clrscr; write('enter the year and the mounth '); read(y,m); if ( m mod 2 ) <> 0 then write(' this mounth in it 31 days ') else if m=2 then if (y mod 4 ) = 0 then writeln('this mounth in it 29 days ') else writeln('this mounth in it 28 days ') else writeln('this mounth in it 30 days'); readkey; end.
	Answered on 13:10, Saturday 11 Nov 2017 by oussama baha eddine farhi (257 points) In Algorithmique et structure de données 1

Answer (6)

0 votes	program dat; uses crt; var y,m:integer; begin clrscr; write('the year and the mounth'); read(y,m); if(mod 2)<>0 then write('this mounth in it 31 days') else if m=2 then if(y mod 4) =0 then writeln('this mounth in it 29 days'); else writeln('this mounth in it 28 days'); else writeln('this mounth in it 30 days'); readkey;end.
	Answered on 16:46, Saturday 11 Nov 2017 by Mohamed idriss Gouasmia (31 points) In Algorithmique et structure de données 1

Answer (7)

0 votes	merci mes camarades!
	Answered on 19:23, Sunday 12 Nov 2017 by rayene ridane (228 points) In Algorithmique et structure de données 1

Answer (8)

0 votes	program mounth; var year,mounth:integer; begin writeln('enter the year and the mounth : yyyy/mm '); read(year,mounth); if ( mounth mod 2 ) <> 0 then writeln(' there is 31 day on this mounth ') else if mounth=2 then if (year mod 4 ) = 0 then writeln('this mounth has 29 days ') else writeln('this mounth has 28 days ') else writeln('this mounth has 30 days'); end.
	Answered on 20:47, Thursday 16 Nov 2017 by نسرين ولهي (106 points) In Algorithmique et structure de données 1

Answer (9)

0 votes	program mounth; var year,mounth:integer; begin writeln('enter the year and the mounth : yyyy/mm '); read(year,mounth); if ( mounth mod 2 ) <> 0 then writeln(' there is 31 day on this mounth ') else if mounth=2 then if (year mod 4 ) = 0 then writeln('this mounth has 29 days ') else writeln('this mounth has 28 days ') else writeln('this mounth has 30 days'); end.
	Answered on 17:27, Friday 8 Dec 2017 by nacer eddine ben nia (68 points) In Algorithmique et structure de données 1