Solution :
Entier i, j, N
Début
Ecrire (" Entre le nombre d’étoile par côté ")
Lire (N)
Pour i ß 1 à N pas = 1
Pour j ß 1 à N pas = 1
Si i = 1 ou i = N ou j = 1 ou j = N alors
Ecrire ("*") sans retour à la ligne
Sinon
Ecrire ("#") sans retour à la ligne
FinSi
FinPour
Ecrire "" // pour le retour à la ligne
FinPour
Fin
Solution
Entiers X, N, i, nombre
Début
Écrire ("Entrez un entier X (>0) : ")
Lire (X)
Écrire ("Entrez le nombre d'entiers N : ")
Lire (N)
multiples ← 0
Pour i ← 1 à N pas 1
Écrire ("Entrez l'entier numéro ", i, " : ")
Lire (nombre)
Si nombre mod X = 0 alors
multiples ← multiples + 1
FinSi
FinPour
Écrire ("Le nbr de multiples de ", X, " est : ", multiples)
Fin
Entier N, original, inverse, reste
Début
Écrire ("Entrez un entier strictement positif N : ")
Lire (N)
original ← N
inverse ← 0
Tant que N > 0
reste ← N mod 10 // Obtenir le dernier chiffre
inverse ← inverse * 10 + reste // Construire l'inverse
N ← N div 10 // Supprimer le dernier chiffre
FinTantQue
Si original = inverse alors
Écrire (original, " est symétrique.")
Sinon
Écrire (original, " n'est pas symétrique.")
FinSi
Fin
Entier N, reste, puissance, valeur_decimale
Début
Écrire ("Entrez un entier N en binaire : ")
Lire (N)
valeur_decimale ← 0
puissance ← 0
Tant que N > 0
reste ← N mod 10 // Obtenir le dernier chiffre (0 ou 1)
valeur_decimale ← valeur_decimale + reste * (2 ^ puissance)
puissance ← puissance + 1
N ← N div 10 // Retirer le dernier chiffre de N
FinTantQue
Écrire ("La valeur décimale est : ", valeur_decimale)
Fin
Solution
Entiers N, K, reste, occurrences
Début
Écrire ("Entrez un entier strictement positif N : ")
Lire (N)
Écrire ("Entrez un chiffre K (0 ≤ K < 10) : ")
Lire (K)
occurrences ← 0
TantQue N > 0
reste ← N mod 10 // Extraire le dernier chiffre
Si reste = K alors
occurrences ← occurrences + 1
FinSi
N ← N div 10 // Retirer le dernier chiffre
FinTantQue
Écrire ("Le nombre d'occurrences de ", K, " est : ", occurrences)
Fin
Entiers N, i, j
Début
Faire
Écrire ("Entrez un entier impair supérieur ou égal à 5 : ")
Lire (N)
TantQue N mod 2 = 0 ou N < 5 alors
// Partie supérieure du losange
Pour i ← 1 à (N div 2) + 1 pas = 1
// Afficher les espaces
Pour j ← 1 à (N div 2) + 1 - i pas = 1
Écrire " " (sans retour à la ligne)
FinPour
// Afficher les étoiles
Pour j ← 1 à 2 * i - 1 pas = 1
Écrire "*" (sans retour à la ligne)
FinPour
Écrire "" // Retour à la ligne
FinPour
// Partie inférieure du losange
Pour i ← (N div 2) à 1 pas = -1
// Afficher les espaces
Pour j ← 1 à (N div 2) + 1 - i pas = 1
Écrire " " (sans retour à la ligne)
FinPour
// Afficher les étoiles
Pour j ← 1 à 2 * i - 1 pas = 1
Écrire "*" (sans retour à la ligne)
FinPour
Écrire "" // Retour à la ligne
FinPour
Fin
Entiers A, B, N, somme_chiffres, reste
Début
faire
Écrire ("Entrez la valeur de A (0 < A) : ")
Lire (A)
Écrire ("Entrez la valeur de B (A < B) : ")
Lire (B)
TantQue (A <= 0 ou A >= B)
Pour N ← A à B pas = 1
somme_chiffres ← 0
reste ← N
// Calculer la somme des chiffres de N
TantQue reste > 0
somme_chiffres ← somme_chiffres + (reste mod 10)
reste ← reste div 10
FinTantQue
// Vérifier si N est divisible par la somme de ses chiffres
Si N mod somme_chiffres = 0 alors
Écrire (N)
FinSi
FinPour
Fin
Entiers N, valeur, max_val, min_val, i
Début
faire
Écrire ("Entrez le nombre d'entiers N : ")
Lire (N)
TantQue N <= 0
Écrire ("Entrez les valeurs : ")
Lire (valeur)
max_val ← valeur
min_val ← valeur
Pour i ← 2 à N Pas = 1
Lire (valeur)
Si valeur > max_val alors
max_val ← valeur
FinSi
Si valeur < min_val alors
min_val ← valeur
FinSi
FinPour
Écrire ("La valeur maximale est : ", max_val)
Écrire ("La valeur minimale est : ", min_val)
Fin
