1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58
| program mfchedly;
uses wincrt;
var
ch1,ch2,ch,ch3:string;
divx,test1,test2,n1,n2,i,x1,x2,x,e:integer;
begin
repeat
test1:=0;
writeln('Saisir un entier');
readln(ch1);
for i := 1 to length(ch1) do
if ch1[i] in ['0','1','2','3','4','5','6','7','8','9' ]then
test1:= test1+1 ;
until test1=length(Ch1);
repeat
test2:=0;
writeln('Saisir un autre entier');
readln(ch2);
for i:= 1 to length (ch2) do
if ch2[i] in ['0','1','2','3','4','5','6','7','8','9' ]
then test2:=test2+1 ;
until test2=length(ch2);
if length(ch1) > length(ch2) then
begin
for i:= 1 to (length(ch1)-length(ch2))do
insert('0',ch2,1)
end
else
if length(ch2) > length(ch1) then
for i:= 1 to (length(ch2)-length(ch1)) do
insert('0',ch1,1);
insert('0',ch1,1);
insert('0',ch2,1);
x1:=0 ;
ch3:='';
for i:= length(ch1) downto 1 do
begin
val(ch1[i],n1,e);
val(ch2[i],n2,e);
if x1+n2+n1 in [10..19] then
begin
divx:=x1+n1+n2;
divx:= divx mod 10;
str(divx,ch);
ch3:=ch+ch3 ;
x1:=1;
end
else
begin
x2:=x1+n1+n2;
str(x2,ch);
ch3:=ch+ch3;
x1:=0;
end;
end;
if ch3[1]='0' then delete(ch3,1,1);
writeln(ch3);
end. |
Partager