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. |
