---

Тут ви можете виконати завдання чи задати питання по змiсту цього уроку.

1 (1) 2013-10-02 11:48:59 {Illusion} const n=5; var x,y,x1,y1,i,p,pt:longint; a:array[1..n]of longint; begin Read(x1,y1); i:=0; while x1<>0 do begin i:=i+1; a[i]:=x1 mod 10; x1:=x1 div 10; end; pt:=i; p:=1; for i:=1 to pt do p:=p*10; x:=0; for i:=1 to pt do begin p:=p div 10; x:=x+a[i]*p; end; i:=0; while y1<>0 do begin i:=i+1; a[i]:=y1 mod 10; y1:=y1 div 10; end; pt:=i; p:=1; for i:=1 to pt do p:=p*10; y:=0; for i:=1 to pt do begin p:=p div 10; y:=y+a[i]*p; end; WriteLn(y-x,' ',x*y); end.

Повернутися до уроку

Повернутися до перелiку уроків курсу