قسم الرياضيات و الإعلام الإليwww.univ-soukahras.dz/ar/dept/mi |
0 votes
|
Ecrire un algorithme permettant de résoudre le problème suivant : |
نشر على 20:46, السبت 18 نوفمبر 2017 By نسرين ولهي |
أجوبة (3)
جواب (1)
1 votes
|
program test; var nombre:array[1..100] of integer; i:integer; res:boolean; begin res:=true; for i:=1 to 100 do read(nomber[i]); for i:=1 to 99 do if nombre[i]<>nombre[i+1]+1 then res:=false; write(res); end. |
نشر على 09:27, الاثنين 20 نوفمبر 2017 by abderrahmane brinis |
جواب (2)
0 votes
|
program test; uses crt; var i:integer; nombre :array[1..100] of integer; r:boolean; begin clrscr; r:=true; for i:=1 to 100 do begin read(nomber[i]); end; for i:=1 to 99 do begin if nombre[i]<>nombre[i+1]+1 then r:=false; begin; write(r); readkey; end. |
نشر على 18:56, الاثنين 20 نوفمبر 2017 by oussama baha eddine farhi |
جواب (3)
0 votes
|
program test; var nombre:array[1..100] of integer; i:integer; res:boolean; begin res:=true; for i:=1 to 100 do read(nomber[i]); for i:=1 to 99 do if nombre[i]<>nombre[i+1]+1 then res:=false; write(res); end. |
نشر على 12:46, الجمعة 1 ديسمبر 2017 by sara younsi |