1)var i,n:integer;x,p:real;
begin
readln(n,x);
p:=1;
for i:= 1 to n do
p:=p*x;
write(p);
readln
end.
2)var x:integer;
begin
readln(x);
if x < 18 then
write('да')
else
write('нет');
readln
end.
1 Мбайт = 1024 Кбайт = 1024*1024 байт = 1024*1024*8 бит
Время передачи файла = 1024*1024*8 / 1024 = 1024*8 с = 8192 с
1 1 2 3 5 8 13 21 34...
Каждое следующие число это сумма двух предыдущих, например: 13 = 8 + 5
8 и 5 два предидущих числа для 13
в первом случае х идёт от 1-9 а Y от 0 до 8. шагов 9, к концу Y=8
во 2 случае
y 0 8 14 18 20 20
x 10 8 6 4 2 0
шагов 5, к концу Y=20