Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- { Afficher la multiplication de deux nombre a et b (de 3 chiffres max)
- Exemple :
- 140
- x 23
- ------
- 3220 }
- Program jadwel_dharb ;
- Uses WinCrt;
- var
- a,b : Integer;
- Begin;
- Write('nombre1: ');
- Readln(a);
- Write('nombre2: ');
- Readln(b);
- If a div 100 <> 0 then
- WriteLn(' ',a)
- Else
- If a div 10 <> 0 then
- WriteLn(' ',a)
- Else
- If a div 1000 <> 0 then
- WriteLn('noumrou fih ken 3 chiffre ya bhim ')
- Else
- WriteLn(' ',a);
- If b div 100 <> 0 then
- WriteLn('x ',b)
- Else
- If b div 10 <> 0 then
- WriteLn('x ',b)
- Else
- If b div 1000 <> 0 then
- WriteLn('noumrou fih ken 3 chiffre ya bhim ')
- Else
- WriteLn('x ',a);
- WriteLn('_______');
- If a*b div 100000 <> 0 then
- WriteLn(' ',a*b)
- Else
- If a*b div 10000 <> 0 then
- WriteLn(' ',a*b)
- Else
- If a*b div 1000 <> 0 then
- WriteLn(' ',a*b)
- Else
- If a*b div 100 <> 0 then
- WriteLn(' ',a*b)
- Else
- If a*b div 10 <> 0 then
- WriteLn(' ',a*b)
- Else
- WriteLn(' ',a*b);
- End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement