blob: 6931b1be8472efcbe35aef3b5d22572cc8316ecb (
plain) (
blame)
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
|
uses math;
var
f : text;
m, n, i : byte;
a, b : double;
j
begin
assign(f, 'LT.IN');
reset(f);
read(f, n, m);
close(f);
a := 1;
for i := 1 to n do
a := a * 2;
b := 1;
for i := 1 to m do
b := b * 3;
a := a + b;
for i := 1 to trunc(log10(a)) do
a := a / 10;
assign(f, 'LT.OU');
rewrite(f);
writeln(f, trunc(a));
close(f)
end.
|
